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Kennwort: Computer Kurs. 
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(MCI), Sammelwerk Service, Postgiroramt Hamburg 86853-201, Postfach 105703, 
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gen einen Sammelordner wünschen. 
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Hefte schnell und sicher erhalten. Überweisen Sie durch Ihre 
Bank, so muß die Überweisungskopie Ihre vollständige An- 
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Fachwörter von A—Z 


Modell- 
entwurf 


In unserer Serie über Künstliche 
Intelligenz sprachen wir vielfäl- 
tige Anwendungsmöglichkeiten, 
aber auch den hohen Preis von 
Expertensystemen an. In diesem 
Abschnitt betrachten wir ein Pro- 
grammpaket, mit dem sich auch 
Laien ein Expertensystem nach 
Maß schneidern können. 


W: der Name schon andeutet, werden Ex- 
pertensysteme in eng umgrenzten Fach- 
gebieten eingesetzt, etwa für medizinische 
Diagnostik oder geologische Feldversuche. 
Ein Generator für Expertensysteme bietet da- 
gegen die Möglichkeit, sie auch in Gebieten 
einzusetzen, für die ein kommerzielles System 
zu teuer wäre. Ein Beispiel für einen solchen 
Ansatz ist das Programm Expert-Ease von 
Thorn-EMI Software. Damit kann jeder sein ei- 
genes Expertensystem (ein sog. „Modell") er- 
zeugen. Das Programm läuft beispielsweise 
auf dem IBM PC und ACT Sirius mit minde- 
stens 128 KBytes RAM. 

Wir erläuterten bereits, daß die eigentliche 
Arbeit im Kern des Expertensystems abläuft — 
im „Folgerungsmodul.“ Dieser Programmteil 
zieht logische Schlüsse. Die Programmierung 
dieses Moduls ist so schwierig (und damit 
teuer), daß Expertensysteme für private An- 
wender bisher unerschwinglich waren. Eben 
diese Programmierung übernimmt nun Expert- 
Ease selbst: Anstelle des Fachmanns benöti- 
gen wir nur noch die Software und natürlich 
den geeigneten Computer. 


Vergleichende Konzepte 


Für die Konstruktion eines Folgerungsmoduls 
gibt es verschiedene Ansätze: Regelhierar- 
chien, die auf IF-THEN-Schlußfolgerungen be- 
ruhen und semantische Netze, die mit Mengen 
und Untermengen arbeiten (so ist etwa „Batte- 
rie leer" ein Element der Menge „Elektrische 
Fehler"). Andere Verfahren arbeiten wie eine 
gewöhnliche Datenbank — mit dem Unter- 
schied, daß aus den Feldeintragungen auch 
Schlußfolgerungen gezogen werden. Expert- 
Ease benutzt eine andere Methode: ein „lern- 
fähiges System vergleichender Konzepte“ 
(Analogue Concept Learning System-ACLS). 
ACLS wurde am Laboratorium für Künstliche 
Intelligenz der Universität Edinburgh unter Be- 
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teiligung der Intelligent Terminals Ltd. entwik- Expert-Ease ist ein Ge- 

kelt. Es handelt sich dabei um eine Weiterent- Merator für Expertensy- 
: 5 r a 2: steme aus dem Hause 

wicklung des „Iterative Dichotomisers 3" (Ite- Thorn-EMI. Mit dem 

rativer Entscheider), ein Public-Domain-Pro- Programm können Sy- 

gramm in PASCAL. steme für die unter- 
Mit Expert-Ease wird ein Modell im „Rück- Sehne und relativ ein- 

wärtsgang“ aufgebaut. Man muß sich also erst fach selbst aufgebaut 

entscheiden, was die möglichen Schlußfolge- werden. 

rungen sind. Erst dann kann festgelegt wer- 

den, welche Fragen dem Anwender gestellt 

werden und was für Schlußfolgerungen aus 

diesen Antworten gezogen werden sollen. Der 

Aufbau von Expert-Ease soll an einem einfa- 

chen Beispiel vorgeführt werden — an der 

Frage nämlich: Geh’ ich heute zum Fußball- 

spiel oder nicht? 
Die Alternativen bei diesem Problem sind 

offensichtlich nur „Gehen“ oder „nicht gehen“. 

Damit sind wir schon bei der Frage, wovon un- 

sere Entscheidung abhängt. Um es einfach zu 

machen, setzen wir einmal voraus, daß in die- 
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sem Fall nur das Wetter und unsere Zeit eine 
Rolle spielen. Dann würde sich unsere erste 
Entscheidungstabelle ergeben. Wir gehen 
also nicht, wenn auch nur eine Frage mit „nein“ 
beantwortet ist. Wir können also, wie in der 
zweiten Tabelle, vereinfachen. Das Sternchen 
bedeutet ‚Egal'. Falls also die erste Frage ver- 
neint wird, braucht die zweite Frage nicht mehr 
gestellt zu werden. 


Genauso füttert man auch Expert-Ease mit 
Informationen. Zuerst wird ein Gerüst der Ta- 
belle erstellt, in der Fragen und denkbare Ent- 
scheidungen stehen (das Ergebnis-Fenster). 
Diese Tabelle wird dann mit den möglichen 
Antworten aufgefüllt (Beispiel-Fenster). Bei 
Expert-Ease muß man allerdings nicht nur mit 
Ja’ oder ‚nein’ antworten — es stehen viele 
Möglichkeiten offen. Sie werden zum ‚Änkreu- 
zen’ in das Beispiel-Fenster eingetragen. Ist 
das Beispiel-Fenster fertig, dann leitet Expert- 
Ease mit ACLS Regeln aus der Tabelle ab, mit 
denen es später arbeitet. Auch auf Widersprü- 
che macht ACLS uns aufmerksam, etwa durch: 
„ll Regeln abgeleitet, Beispiele 1, 5, 6 wider- 
sprechen den Regeln“. 

Expert-Ease ist zweifellos ein außerordent- 
lich leistungsfähiges und durchdachtes Pro- 
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EXPERT-ERSE file: TRANSPORT 43564 bytes left 


gramm. In vielen Fällen ist es den kommerziel- 
len Systemen durchaus gewachsen. Ein weite- 
res Plus ist die Fähigkeit zur Verkettung einzel- 
ner Modelle, um komplexe Probleme in hand- 
liche Stücke zu zerlegen. Der wesentliche Un- 
terschied zwischen einem Expert-Base-Modell 
und einem kommerziellen Expertensystem be- 
steht darin, daß Expert-Ease keine Informatio- 
nen darüber gibt, wie es zu seinen Entschei- 
dungen kommt. Man kann zwar Nachrichten in 
den Text der Entscheidung einfügen, der Weg 
der Entscheidungsfindung bleibt aber verbor- 
gen. Das kann außerhalb der professionellen 
Nutzung auch ein Vorteil sein — die Grundla- 
gen einer Entscheidung sind oft sehr komplex. 
Fachleute müssen jedoch oft ein Glied oder 
gar die ganze Argumentationskette Schritt für 
Schritt prüfen. 


Anwendungsbereiche 


Expert-Base kann seine Fähigkeiten beson- 
ders bei der Erzeugung einfacher Modelle 
hervorragend beweisen. 

Ein Gebiet für den Einsatz von Expert-Ease 
ist die Bearbeitung von Kreditanträgen. Das 
Anwenderspektrum reicht dabei vom Kleinbe- 
trieb, der sich zwischen den Zahlungsbedin- 
gungen „30 Tage Ziel", Barzahlung oder Vor- 
kasse entscheiden muß, bis zur Großbank, die 
Kredite über größere Summen bewilligen soll. 
Jede Kreditbewilligung beinhaltet ein Risiko, 
das beurteilt werden muß. 

Normalerweise wird die Kreditentscheidung 
von einem Bankangestellten getroffen. Wenn 
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IPERT-ERSE file: TRANSPORT 42724 bytes left 


This is the rule screen, valid comnands are:i- 
cursor keys = Up und down cursor control keys may be used to 
ound the rule. 
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, mw, value, delete, change, text ? (’+’ for more > 


-Ein Modell wird entwickelt 


Der erste Schritt bei der Entwicklung 
eines Expert-Ease Modells ist der Entwurf 
eines ‚Skeletts’, auf dem die Entschei- 
dungstabelle aufbaut. Bei Expert-Ease 
wird sie als ‚Ergebnis-Fenster’ bezeichnet 
und durch die Taste „A“ aufgerufen. Um 
dieses Fenster zu füllen, müssen die not- 
wendigen Fragen und ihre Reihenfolge 
festgelegt werden. Jede Frage erhält einen 
Namen, der als Spaltenüberschrift ausge- 
geben wird. 
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Als nächstes sind die möglichen Ent- 
scheidungen (oder Empfehlungen) festzu- 
legen. Sie erhalten gleichfalls Namen, die 
rechts im Fenster als Zeilenbezeichnun- 
gen erscheinen. Bei einem „Transportmo- 
dell“ könnten wir uns für die Fragen nach 
Kosten, Anzahl der Passagiere, Gepäck, 
Geschwindigkeit und Bequemlichkeit ent- 
scheiden. _ 

Nach den Überschriften können mit „T’“ 
die Texte für Fragen und Empfehlungen 
eingegeben werden. 

Bei der Textlänge gibt es keine Be- 


schränkungen - was nicht mehr ins Fen- 
ster paßt, wird automatisch in ein zweites 
geschoben. 

Das Beispielfenster ist die eigentliche 
Entscheidungstabelle. Es heißt so, weil 
Expert-Ease an Beispielen lernt, welche 
Entscheidungen zu fällen sind. Im ersten 
Beispiel antwortet ein Benutzer mit ‚2’ 
(Nein) auf die Frage nach Geld, das heißt, 
er will es möglichst billig haben. Die Ant- 
worten auf weitere Fragen werden damit 
irrelevant, und wir füllen die Zeile mit 
Sternchen, den Zeichen für ‚egal’. Expert- 


ein Expert-Base Modell ihn entlasten soll, muß 
zuerst ein Kriterienkatalog der Eigenschaft 
„Kreditwürdig" erstellt werden, und die dazu- 
gehörigen Fragen sind zu formulieren. Aus 
den Antworten läßt sich das Risiko abschätzen. 
Ein vereinfachtes Modell für Kreditvergaben 
haben wir in Tabellenform gefaßt. 

Ein typischer Programmablauf wäre dann: 


Bietet der Kunde Sicherheiten? Nein 


War der Kunde bereits im Verzug? Nein 

Hat der Kunde sein Konto je über Limit 
belastet? Ja 

Hat der Kunde ein regelmäßiges, belegtes 
Einkommen? Ja 

*Bitte Antrag zur Entscheidung an den Vorge- 
setzten weiterleiten* 


Anpassungsfähig 


Auf diese Art können einfache Entscheidun- 
gen mit Hilfe des Expertensystems auch von 
weniger qualifiziertem Personal getroffen wer- 
den. Nur kompliziertere Fälle müssen auf hö- 
herer Ebene entschieden werden. Sollte die 
Bank ihre Kreditbedingungen ändern, also 
etwa bei allen Krediten über DM 5000,— Si- 
cherheiten fordern, dann läßt sich das Modell 
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problemlos den neuen Gegebenheiten anpas- 
sen. Die Umprogrammierung ist einfach. 

Expertensysteme sind eine ideale Lösung 
bei diagnostischen Problemen. Komplexe Pro- 
bleme, etwa in der Medizin, erfordem große 
Datenmengen mit komplexen Regeln und fei- 
nen Unterscheidungen. Hier muß ein maßge- 
schneidertes System benutzt werden. 

Eine kleine Fluggesellschaft etwa, die per 
Helikopter das Personal auf Ölbohrplattformen 
transportiert, kann Expert-Ease für die Ent- 
scheidungsfindung bei der Wartung ihrer Hub- 
schrauber-Flotte einsetzen. Bei kleinen Repa- 
raturen wird normalerweise ein Ingenieur ge- 
braucht, der den Hubschrauber inspiziert und 
anordnet, welche Arbeiten die geringer quali- 
fizierten Mechaniker ausführen sollen. Mit 
Hilfe von Expert-Ease dagegen kann der Me- 
chaniker selbst herausfinden, welche War- 
tungsarbeiten fällig sind. 

Dieses Verfahren läßt sich bei Reparatur und 
Wartung jedes mechanischen, elektrischen 
oder elektronischen Gerätes anwenden 
nicht zuletzt auch bei Computern. Tatsächlich 
wird Expert-Ease sowohl bei der Untersu- 
chung von Softwarefehlern als auch bei Pro- 
blemen mit der Hardware eingesetzt. Hat ein 
Kunde Schwierigkeiten, dann müssen im Re- 
gelfall geschulte Hard- und Software-Speziali- 
sten kostbare Zeit aufwenden, um den Fehler 
zu lokalisieren. Mit Expert-Base ist es dage- 
gen möglich, diese Aufgaben an weniger ge- 
schultes Personal zu delegieren. Experten 
müssen sich dann nur noch um die wirklich 
komplizierten Fälle kümmern. 
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‚cept, 
ins, cdel> 


Ease überspringt dann diese Fragen. 

Im zweiten Beispiel muß jede Frage 
wirklich gestellt werden. Erst wenn wir 
alle Antworten kennen, kann entschieden 
werden, ob dem Benutzer ein Fahrrad 
oder ein Mofa empfohlen werden soll. 
Beispiel 3 zeigt die Antworten, die zur 
Empfehlung eines Mofas führen. 

Nach Fertigstellung der Beispiele geben 
wir ein Ausrufungszeichen „!“ ein. Ex- 
pert-Ease leitet dann die ihnen zugrunde- 
liegende Logik ab. Dazu werden alle Bei- 
spiele durchlaufen und geprüft, ob Wider- 


sprüche auftauchen (etwa unterschied- 
liche Antworten mit der gleichen Folge- 
rung). Danach wird eine „Regel“ (Fluß- 
diagramm) formuliert. Wenn Widersprü- 
che auftreten, wird die Regel zwar formu- 
liert, aber darauf hingewiesen, daß die 
Beispiele x,y,z ihr widersprechen. Kon- 
flikte muß der Anwender dann selbst be- 
seitigen. 

Sobald eine Regel abgeleitet worden ist 
(mit oder ohne Widersprüche), kann sie 
durch die Taste „R“ auf dem Bildschirm 
dargestellt werden. Man sieht, daß die er- 


ste Frage unter der Überschrift „Geld“ ge- 
speichert ist, und daß auf einen Wert un- 
ter 2 (Ja) die „Fahrgast“-Frage folgt, wäh- 
rend 2 oder größer zur Empfehlung ‚Öf- 
fentlich’ führt. Widersprüche lassen sich 
am besten mit dieser Tabelle korrigieren. 
Das System fragt, zu welchem Befehl 
Hilfe gewünscht wird. Dabei liefert „H“ 
eine Zusammenfassung aller in diesem 
Fenster gültigen Befehle. Gibt man den 
Anfangsbuchstaben eines anderen Befehls 
ein, erhält man eine ausführlichere Be- 
schreibung. 
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Sie haben nun sicher die Neue 
Welt erreicht und können mit dem 
Handel beginnen. Mit ein wenig 
Geschick lassen sich indianische 
Schnitzereien, Gewürze und 
Perlen eintauschen, die Ihnen 


“nach Ihrer Rückkehr einen guten 


Gewinn einbringen. 


i 


ie Handels-Routine wird in Zeile 892 des 

Hauptprogramms aufgerufen. Zuerst wird 
überprüft, ob Sie Waffen mitgebracht haben. 
Der Häuptling der Eingeborenen hat eine ge- 
sunde Abneigung gegen Waffen und lehnt Ihr 
Waffenangebot dankend ab. Mit den übrigen 
Waren kann gehandelt werden. 

Sie werden nun informiert, welchen Wert die 
vom Häuptling angebotene Ware besitzt. 
Zuerst bieten Sie Salz. Sie können dafür Schnit- 
zereien, Gewürze oder Perlen erhalten. Versu- 
chen Sie Ihr Glück dann mit Stoffen, Messern 
auualluuerslen nll aEll nn un 


Waffenhandel 


Wenn Sie keine Waffen an Bord haben, 
braucht der Häuptling Ihnen auch nicht mitzu- 
teilen, daß er an einem Handel kein Interesse 
hat. Daher wird in Zeile 10072 das zweite Ele- 
ment des Arrays OA überprüft, in dem die An- 
zahl der Waffen verzeichnet ist. Ist dieser Wert 
0, wird die Meldung des Häuptlings selbstver- 
ständlich nicht ausgegeben. 


Zeile 10080 überprüft die letzten vier Ele- 
mente des Arrays OA. Die ersten beiden Ele- 
mente repräsentieren Medizin und Waffen und 
werden daher nicht untersucht. Sind Messer, 
Salz, Stoffe oder Juwelen an Bord, wird Ihnen 
mitgeteilt, daß der Häuptling im Austausch 
Perlen, Schnitzereien und Gewürze anbietet. 
Sind alle vier Elemente des Arrays auf 0 ge- 
setzt, endet das Spiel: Sie sind dann nämlich 
„handelsunfähig". 

Nachdem Sie sich über den Wert der einzel- 
nen Waren informieren konnten, wird in den 
Zeilen 10130 bis 10200 eine Schleife zum Güter- 
tausch gestartet, So berechnet das Programm 
etwa die Mengen an Perlen, Schnitzereien und 
Gewürzen, die der Häuptling für eine Einheit 
Ihrer Waren bietet, und Sie werden gefragt, 
welche Waren Sie haben wollen. Anschließend 
speichert der Rechner die entsprechenden 
Werte zur Weiterverarbeitung. 

Der Schleifenzähler behandelt jedes Han- 
delsgut separat. In Zeile 10135 wird überprüft, 
ob das gerade bearbeitete Array-Element auf 
0 gesetzt ist. Wenn ja, besitzen Sie diese Ware 

icht, und durch die NEXT-Anweisung in Zeile 

10200 wird mit dem nächsten Element von OA() 
fortgefahren. Ansonsten informiert Sie Zeile 
10145 über die jeweils vorhandenen Mengen. 
Die Zeilen 10150 bis 10153 geben entsprechend 
dem aktuellen Wert von T die Warenart aus, 

Nachdem der Häuptling ein Angebot unter- 
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breitet hat, berechnet das Programm die Men- 
gen seiner Waren, die Sie im Tausch für Ihre 
Waren erhalten. Für diese Berechnungen wird 
das in Zeile 63 erstellte zweidimensionale Ar- 
Tay EQ(,), das die zugehörigen Tauschwerte 


Der Ausdruck in 65-berechnet für 
' jede angebotene Ware die Perlenanzahl;=i 
dem die Menge der zu tauschenden. Ware 
x . OA(T) mit der ‚entsprechenden Tauschrate aus | 
\EOG m Itipliziert wird. Da die Schleife von 3 
‚muß von T der Wert 2 subtra 
ers um eine Übereinstimmung mit der 
Element-Nummer in EQ(,) zu erzielen. Wird 
Salz gehandelt, ist der Schleifenzähler T=3. 
- EO(T-2,1) entspricht somit der“ 


I 


"der Schnittstelle 
zwischen dem ersten Element des ersten Un- 
terbereiches (Salz) und dem ersten Element 
des zweiten Unterbereiches- ‚(Perlen). Das ist 
hier.der Wert 0,5. Also wird in Zeile 10165 die 
Salzmenge mit 0,5 multipliziert, um die Perlen- 
anzahl für das Tauschgeschäft zu ermitteln. 


FREE Zeile 10166 wird eine gleichartige Funk- 


Gewürze mitgeteilt. Dazu diene € 
10220 und "10244, Danach erfolgt der Rück- 


tion für die Handelsmenge von Schnitzereien 
ausgeführt, und in Zeile 10167 kommen gi® Ge- 
würze an die Reihe. 
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Nachdem Sie das Angebot.des Häuptlings 
kennen, müssen Sie entscheiden, welche Wa- 
ren Sie erwerben wollen. Das Gochgsale Gut 
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müssen je Be auseiten Wahlen auf (das Schiff 
gebracht werden: Zeile 10180 speichert die 
Menge im Array AO(), das bereits zuvor in 
. Zeile 68 dimensioniert wurde. ] 

Die drei Elemente dieses Arrays repräsen- 
tieren die drei vom Häuptling angebotenen 
Waren. Die Menge der auf das Schiff gebrach- 

‚ ten Güter wird nochmals unter erwendung 
der Tauschraten aus EQ(,) und Multiplikation 
des entsprechenden Elementes mit der 
Menge der gehandelten Ware, OA(T), errech- 
net. I, die Nummer, die Sie zur Auswahl einer 
Ware eingeben müssen, wird zur Bestimmung 
des korrekten Elementes von AO() verwendet. 
In AO() werden die gehandelten Perlen, 
Schnitzereien und Gewürze gespeichert. Au- 
ßerdem wird I zur Kennzeichnung des zweiten 
Unterbereiches von EQ(,) verwendet. 

Nachdem die neu erworbenen Güter in AO() 
verzeichnet sind, kehrt die Schleife, falls not- 
wendig, zum Anfang zurück. Wenn alle Waren 
ausgetauscht sind, wird der Handel abgebro- 
chen, und es wird Ihnen die Menge der nun an 
Bord befindlichen Perlen, net und 


zum Hauptprogramm. 

Im nächsten, abschließenden Artikel kom- 
plettieren wir das Spiel. Sie bekommen es mit 
einem Aufstand zu tun und müssen die frisch 
erworbenen Waren in der Heimat verkaufen. 
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Modul Zwölf: Der Handel 


Ergänzungen am Hauptprogramm 
372 GOSUB18878 


Die Handels-Routine 


185878 PRINTCHR&(147):G0SUBF288:REM TRADING 

18872 IFOA(Z)I=8THENI 888 

16874 S$="THE CHIEF DOESN’T WANT YOUR*" :GOSLUBPIBH 
ee S$="GUNS - THEY WILL CAUSE TROUBLE*" :G0SUBF1 
16878 
18888 
16198 
18885 
18096 
16895 
18188 


PRINT :GOSUBFZ86 
IFOA(3) <>BOROA(4) <>BOROA(S) <>BOROA(S) <DATHEN 


S$="YOU HAVE NO GOODS LEFT«" 
S$="FOR TRADING*" :GOSUBP1H8 
G0T018838 

S$="IN EXCHANGE FOR ANY KNIVES#" :G0SUBF188 
S$="SALT CLOTH OR JEWELS YOU HAVE*" :GOSUBF1E 


:G0SUB?188 


8 
18184 
8 
18186 
168168 
18118 
8 
18112 


S$="HE OFFERS YOU PEARLS CARVINGS«" :GOSUBF18 
S$="AND SPICES*" 
PRINT :GOSUB9288 
S$="WHEN YOU LEFT FORT THESE WERE*" 


:GOSUBF188 
:GOSUBFLE 


S$="WORTH: *" :GOSUBF188 
18114 S$="PEARLS - 2 GLD PCS EACH" :GOSUB?188 

181168 S$="CARVINGS - 2 GLD PCS EACH*" :GOSUBF188 

18118 S$="SPICES - 1 GLD PC PER GRAM*" :G0SUBF9188 er 
18126 PRINT:GOSUBY288 

18122 S$="BUT THEIR VALUE MAY HAVEX" :GOSUB?186 

18124 S$="CHANGED WHEN YOU GET HOME*" :GOSUBF188 

18125 PRINT :GOSUB9288 :5$=K$:G60SUB9198 
18126 GETI$:IFI$=""THENI18126 

16138 FORT=3T0& 

18135 IFOA(CT)I=8THEN1 0288 

168146 PRINTCHR$(147) :G0SUB?288 

18145 PRINT"YOU HAVE" :0A(TI: 

18150 IFT=3THENS$="BAGS OF SALT«" 

18151 IFT=4THENS$="BALES OF CLOTH*" 
IFT=STHENS$="KNIVES*" 

IFT=6THENS$=" JEWELS*" 

GOSUBF188 

PRINT :GOSUBF288 

S$="FOR THESE THE CHIEF OFFERS YOux«" 


18153 
18155 
18156 
18168 
a8 

18165 
18166 
16167 
E" 

18168 
18178 
18172 
18174 
18175 
18176 
18188 
18198 
pr 

18192 
19194 
10288 
18218 
16215 
18216 
18218 
18228 
16222 
16224 
18226 
16228 
10229 
16238 


:GOSUBFIL 


PRINT"EITHER" 
PRINT" OR" 
PRINT" OR" 


sOACTI*ERCT-2,1) 3" PEARLS" 
sOACTI#EQCT-2,2) 5; "CARVINGS" 
sOA(T)*EQCT-2,3) ;"GRAMS OF SPIC 


PRINT :G0SUBY288 

S$="DO YOU WANT PEARLS,CARVINGS«" 
S$="ÖR SPICES?*" :G0SUBY188 
S$="(ENTER 1,2 OR 3)*" :G60SUB?9188 
INPUTI& 

I=VAL(I$) :IFI<LORI>3THEN18174 
ADCTI=AOCTI+COACTIKERCT-2Z,12) ß 
PRINT :PRINT"THE ";T$%(1);" ARE PUT ON THE SHI / / r 


:G0SUB?188 


S$=K$:60SUBY1B8 

GETI$:IFI$=""THEN16194 / f 
NEXT b 
PRINT :PRINT :GÜSUBP268 
S$=" END OF TRADING" 
PRINT :GOSUBY288 

S$="YOU HAVE OBTAINED:*" 
PRINTAO(1) ;"PEARLS" 
PRINTAO(2) ;"CARVINGS" 
PRINTAO(3) ;"GRAMS OF SPICE" 
PRINT :G0SUB?208 GB 
S$=K$:G0SUB?188 

GETI$: IFI$=""THEN18229 
RETURN 


:G0SUB9198 4 v4 


:G0SUBF1B8 


BASIC-Dialekte 


Spectrum: 
Ersetzen Sie im gesamten Programm EQ(,) durch 
Q(,) und AO() durch E() und ändern Sie: 


10070 CLS 
10126 LET I$=INKEYS:IF 1$="" THEN GO TO 10126 


10140 CLS:GO SUB 9200 
10229 LET I$=INKEYS:IF I$=“" THEN GO TO 10299 


Acorn B: 
Ändern Sie das Programm wie folgt: 


10070 CLS 

10126 I$=GET$ 

10140 CLS:GOSUB 9200 
10229 I$=GET$ 
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Gestatten, 


RECUR 
DEFVARS 


ENDRECURI 
ENDRECUR2 
LINES (Mit 
Turtle) 
LINES (Ohne 
Turtle) 
ASSIGN 


PROZEDUR 


erreichte 


Ebene 


Zeit (in 
Sekun- 
den) 


| 


on 

=: 

nm 
D) 


DNB.) 


Dr.LOGO 


LOGO ist mit eine der besten Einstiegssprachen in die Welt der 
Programmierung. Wir sehen uns Dr. LOGO für den Schneider an und 
ziehen Vergleiche zu der ursprünglichen Version für den IBM PC. 


ls LOGO von Großcomputern auf Acht-Bit- 

Microcomputer übertragen wurde, waren 
Einschränkungen und Vereinfachungen nötig, 
um die Sprache auf Geräten mit lediglich 64 
KByte überhaupt lauffähig zu machen. Kurz 
nach Erscheinen der ersten 16-Bit-Micros gab 
es mehrere erweiterte Versionen. 

Gary Kildall — der Gründer von Digital Rese- 
arch (Hersteller des Betriebssystems CP/M) — 
war von dem Potential der Sprache fasziniert. 
Mit Dr. LOGO entwickelte er eine eigene Ver- 
sion für den IBM PC, die es auch für eine Reihe 
weiterer 16-Bit-Maschinen gibt. 

Inzwischen ist Dr. LOGO auch für Acht-Bit- 
CP/M-Maschinen erhältlich. Das Programm- 
paket des Schneider CPC 464 enthält bei- 
spielsweise eine Version. 

Das ursprüngliche Dr. LOGO für den IBM PC 
benötigt mindestens 192 KByte RAM. Die Pro- 
grammdiskette ist kopiergeschützt, wird je- 
doch gleich mit Sicherheitskopie geliefert. 
Nach Einlegen der Diskette lädt ein Systemre- 


IBM PC 
(256K) 


SCHNEIDEN COMMO- | APRICOT 
ICPC 464/664| DORE 64 Fle 


E-3 


i 


set automatisch das Sprachsystem. Die Auflö- 
sung der Farbgrafik beträgt 320 X 200 Pixel. Es 
stehen 16 Hintergrundfarben und vier Sets zu 
je drei Pen (Vordergrund) Farben dem Anwen- 
der zur Verfügung. 

Im Handbuch ist Dr. LOGO als Erweiterung 
des Apple LOGO beschrieben. Es enthält alle 
LOGO-Befehle der Apple Systeme, darunter 
die Standardbefehle für Grafik, Listenverarbei- 
tung und Speicherverwaltung, wie auch „Pri- 
mitives" (LOGO-Grundbefehle bzw. -routinen) 
für Fehlerbehandlung, „Properties" (eine Me- 
thode, einem Objekt mehr als einen Wert zuzu- 
weisen) und „Packages“ (eine Technik, mit der 
sich Prozeduren zu Gruppen zusammenfassen 
lassen). 

Der Editor arbeitet mit den Funktionstasten 
des IBM, erkennt aber auch die in Apple- 
LOGO gebräuchlichen Steuercodes. Wird 
während des Programmablaufs ein Fehler ge- 
funden, so kann man mit der Eingabe „ed“ den 
Editor aufrufen, der die fehlerhafte Prozedur 
gleich zur Korrektur bereithält. Leider gibt der 
Bildschirm keine Auskunft darüber, ob der Edi- 
tiermodus eingeschaltet ist. Die meisten ande- 
ren LOGO-Versionen zeigen dies mit einer 
speziellen Statuszeile am unteren Bildschirm- 
rand an. 


Befehlsvielfalt 


Dr. LOGO kennt mehr als die üblichen Primi- 
tives zur Listenverarbeitung: 


sort sortiert eine Liste in alphabetischer Rei- 
henfolge 

shuffle stellt die Elemente einer Liste in zu- 
fällige Reihenfolge 

piece gibt Ihnen die Möglichkeit, einen Teil 
einer Liste auszuwählen 
Dr. LOGO besitzt außerdem eine Reihe von 
Fehlersuchroutinen: 


watch zeigt den Arbeitsvorgang einer Proze- 
dur zeilenweise an 

trace gibt die Definition der Variablennamen 
in der Reihenfolge ihres Aufrufs aus 

debug teilt den Bildschirm in zwei Fenster. 
Im „debug"-Fenster lassen sich die Informatio- 
nen von trace und watch darstellen, während 
das „Programm“-Fenster den Programmablauf 
anzeigt. 
Die Prozeduren können mit Bemerkungen ver- 


Die Benchmark-Prozeduren 


Die folgenden neun Benchmark-Prozeduren 
testen unterschiedliche Eigenschaften von 
LOGO und zeigen die Stärken und Schwä- 
chen der einzelnen Sprachversionen. 

@© RECUR mißt die Größe des Stacks. 

@ DEFVARS mißt den Platz für die Definition 
von Variablen und Prozeduren. 

@ ENDRECURI/ENDRECUR2 bestimmen, 
ob die Endrekursion korrekt implementiert 
wurde. Eine ideale Implementation sollte 
unendliche Rekursionen zulassen. Während 
ENDRECURZ2 als Ablauf das Ergebnis aus- 
gibt, ist ENDRECURI ein Befehl. 

@ LINES mißt die Zeichengeschwindigkeit. 
Zahlenpaare zeigen an, wieviel Zeit gewon- 
nen wird, wenn die Turtle beim Zeichnen 
nicht auf dem Bildschirm erscheint. 

@ ASSIGN mißt die Geschwindigkeit, mit der 
Variablen Werte zugeordnet werden. 

@ 1,1STS mißt die Geschwindigkeit der Ope- 
ratoren für Listenverarbeitung. 

@ ARITH mißt die Geschwindigkeit arithme- 
tischer Funktionen, 

@ RECURA das Tempo rekursiver Aufrufe. 


sehen werden, die sich mit „noformat“ heraus- 
nehmen lassen, falls der Platz knapp wird. 

Es gibt auch eine Reihe von neuen Primi- 
tives zur Prozedurverwaltung: 


follows definiert die Reihenfolge, in der die 
Prozeduren auf dem Bildschirm dargestellt 
werden 

potl zeigt die Namen aller Prozeduren, die 
nicht schon von anderen Prozeduren aufgeru- 
fen werden 

poref<name > stellt die Namen aller Proze- 
duren auf dem Bildschirm dar, die die Proze- 
dur <name> ansprechen 

pocall<name> zeigt die Namen aller Pro- 
zeduren, die von der Prozedur <name> auf- 
gerufen werden 


All diese Zusatzmodule sind bei der Entwick- 
lung von LOGO-Programmen eine große Hilfe. 

Aber Dr. LOGO hat auch eine Schwäche: Der 
Editor besitzt keine Funktion fürs Suchen und 
Tauschen, es gibt keine Schnittstelle zum Ma- 
schinencode und auch keine Dateiverarbei- 
tung. Das 300 Seiten starke Handbuch hinge- 
gen ist zu loben. Außer einer LOGO-Einfüh- 
rung enthält es einen Überblick, der jedem Pri- 
mitive eine eigene Seite widmet. 

Interessant ist ein Vergleich zwischen Dr. 
LOGO und den Acht-Bit-Versionen der Spra- 
che. Der Arbeitsbereich von LOGO wird in 
„Nodes" (Datenelementen) gemessen. Beim 
Systemstart zeigt Dr. LOGO die beruhigende 
Meldung, daß rund 10000 Nodes zur Verfü- 
gung stehen (Acht-Bit-Systeme haben norma- 
lerweise 2-3000). Es gibt also genug Platz für 
die Definition von Prozeduren und den Ablauf 
rekursiver Prozeduren. Die Endrekursion (eine 


rekursive Prozedur mit dem rekursiven Aufruf 
in der letzten Zeile) wurde jedoch schlecht im- 
plementiert. Programme, die auf dem Commo- 
dore oder Acorn B „ewig“ laufen, erreichen un- 
ter Dr. LOGO schon nach einigen hundert Re- 
kursionen die Speichergrenze. 

Grafik wird schnell aufgebaut, doch sind die 
Listenverarbeitung wie auch arithmetische Ab- 
läufe weit langsamer als in anderen Sprachver- 
sionen gemeinhin üblich. 


Dr. LOGO Musicus 


Dr. LOGO gehört zum Lieferumfang der 
Schneider Diskettenstation. Das Sprachsystem 
wurde der Schneider Hardware angepaßt. So 
arbeitet die Grafik zwar mit dem gleichen 
„Pen“-Farbensystem wie das Dr. LOGO des 
IBM PC, doch lassen sich die Pen-Farben in 
einer Liste festlegen, die den Anteil von Rot, 
Grün und Blau bestimmen. Weiterhin fehlt der 
IBM-Version die große Palette der Schneider- 
Klangbefehle. Die Schneider-Version bietet 
„env" (Hüllkurve für die Lautstärke), „ent“ 
(Hüllkurve für Tonhöhe) und „release“ (Frei- 
gabe der abgeschalteten Tonkanäle). 

Die Schneider-Version enthält die meisten 
Fähigkeiten des Apple-LOGO, darunter „Pro- 
perties“ und Fehlerroutinen, nicht aber die Ver- 
knüpfung von Prozeduren (Packages). 

Ihr fehlen weiterhin die Fehlersuchprimi- 
tives und die Prozedurverwaltung der IBM-Ver- 
sion, die vermutlich der geringeren Speicher- 
kapazität der Schneidergeräte zum Opfer fie- 
len. Vermißt wird auch die „define“-Funktion, 
und Dateien lassen sich nur von CP/M aus 
löschen. 

Da der Editor sehr langsam reagiert, Können 
bei schneller Eingabe Zeichen verschwinden. 
Es ist jedoch sehr praktsich, daß der Editier- 
cursor beim Prozedurablauf automatisch auf 
Fehler positioniert wird. 

Mit „examine" und „.deposit“ (PEEK und 
POKE) bietet Schneider — im Gegensatz zu 
IBM — begrenzten Zugang zu Maschinencode. 

Die mitgelieferte Information ist allerdings 
dürftig und bezieht sich auf eine LOGO-Ein- 
führung und ein Referenzhandbuch. In der 
25seitigen Dokumentation fehlen einige Optio- 
nen von Dr. LOGO, die dennoch funktionieren. 

Beim Systemstart zeigt Dr. LOGO, daß 2105 
Nodes zur Verfügung stehen — eine auf Acht- 
Bit-Geräten durchaus übliche Zahl. Es wurde 
jedoch die Endrekursion nicht korrekt imple- 
mentiert, und die Sprache ist bei der Verarbei- 
tung von Grafik, Arithmetik und Listen etwa 
dreimal so langsam wie LOGO auf dem Com- 
modore 64. 

Alles in allem ist die Schneider-Version nicht 
ganz so interessant wie Dr. LOGO auf dem IBM 
PC, doch steht damit eine gute Standardver- 
sion von LOGO zur Verfügung, die mit Packa- 
ging und Fehlerroutinen erfreulich ordentlich 
ausgerüstet ist. 
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Geschäftssprache 


Wir beenden unsere COBOL-Serie und versuchen herauszufinden, 
warum COBOL immer noch die erfolgreichste Sprache für den 


kommerziellen Einsatz ist. 


„Und hiermit neigt sich nun der COBOL-Kurs seinem Ende zu“ 


ie Unterschiede zwischen Tabellen und 

Arrays sind auf den ersten Blick nicht 
leicht zu erkennen. In Arrays werden die Ele- 
mente über eine Elementnummer oder einen 
Index angesprochen, bei Tabellen jedoch über 
einen Schlüssel, der Teil jedes Datenelemen- 
tes ist. Weiterhin haben Tabellenelemente nor- 
malerweise eine Datensatzstruktur und beste- 
hen aus mehreren Feldern. 

COBOL hat spezielle Fähigkeiten zur Tabel- 
lenbearbeitung, die sich auch für einfache Ar- 
rays einsetzen lassen. Dabei wird jedes Daten- 
element (außer den Ebenen Ol und 77) mit der 
Bedingung „OCCURS nn TIMES" als Wieder- 
holung des ersten Elementes definiert (nn 
kann jede positive Ganzzahl sein; TIMES darf 
weggelassen werden). Hier die Definition 
eines einfachen Arrays mit 20 Ganzzahlen: 

01 Einfach-Array. 

02 Array-Element PIC 9 (5) OCCURS 20 

TIMES. 


Die Elemente dieses Arrays werden mit „Ar- 
ray-Element(5)" oder „Array-Element(Zahl—1)" 
angesprochen, wobei Zahl-] ein positives 
Ganzzahlelement darstellt. Da jedes Array 
einen Namen hat, können Anweisungen wie 
MOVE ein ganzes Array bearbeiten. 

Durch die weitere Unterteilung der wieder- 
holten Felder werden zweidimensionale (oder 
größere Arrays möglich: 


01 Zwei-dimensionales-Array. 
02 Array-Zeile OCCURS 20 TIMES. 


03 Array-Element OCCURS 30 TIMES. 


Die Elemente dieses Arrays werden mit „Ar- 
ray-Element(3,4)" oder „Array-Element (Zahl- 
1,Zahl-2)" bezeichnet. 

In COBOL lassen sich die unterschiedlich- 
sten Datenelemente zu zusammenhängenden 
Strukturen kombinieren. Das folgende Beispiel 
definiert die Preie eines Schuhgeschäftes. 


01 Lager-Tabellen. 
02 Groesse-Beschreibung OCCURS 20 


TIMES. 
03 Groesse-englisch PIC 9V9. 
03 Groesse-metrisch PIC 99V99. 


02 Lagermenge PIC 999. 
02 Lager-Artikel-gesamt. 


03 Lager-Artikel OCCURS 500 TIMES, 
ASCENDING KEY IS Lager-Nummer. 
04 Lager-Nummer PIC X(6). 

04 Lager-Beschreibung PIC X(20). 

04 Lager-Preise PIC 999/99 
OCCURS 20 TIMES. 

04 Lager-Indikator PIC X. 

88 Lager-Wert VALUE 'Y'. 


Sie sehen, daß alle zusammenhängenden In- 
formationen in einer großen Tabelle zusam- 
mengefaßt sind. Die Wiederholung eines 


Gruppenelementes wie Lager-Artikel wieder- 
holt automatisch auch die darin enthaltenen 
Subfelder. Sie können sich daher auf Lager- 
Nummer(6) beziehen oder auf Lager- 
Preise(100,3). Da sich auch die Bedingungen 
der Ebene 88 mit Subscripts versehen lassen, 
können Abfragen, beispielsweise mit IF Lager- 
Wert(120), durchgeführt werden. Die Bedin- 
gung ASCENDING (oder DESCENDING) KEY 
ist wahlfrei und wird nur eingesetzt, wenn die 
Tabelle eine bestimmte Reihenfolge halten 
und das Verb SEARCH ALL eingesetzt werden 
soll. Da COBOL seine Datenelemente nicht au- 
tomatisch in einer bestimmten Reihenfolge ab- 
legt, müssen Sie sich darum kümmern. 


INDEX-Datentyp 


Tabellen lassen sich über jedes numerische 
Datenelement, das eine positive Ganzzahl ent- 
hält, mit einem Index versehen. COBOL bietet 
weiterhin einen speziellen INDEX-Datentyp, 
der mit „INDEXED BY Index-Name“ an jede 
OCCURS-Bedingung angefügt werden kann. 
Dabei wird ein numerisches Datenelement de- 
finiert, das nur einen positiven Ganzzahlwert 
enthalten kann und das zugehörige Array indi- 
ziert. Eine Tabelle kann mehrere Indizes ha- 
ben. Es ist möglich, ein beliebiges numeri- 
sches Datenelement als „USAGE INDEX" zu 
deklarieren, der dann zwar nicht als Index für 
das Array dient, aber in der Indexarithmetik 
verarbeitet werden kann. 

Indexelemente dürfen nicht in normalen 
arithmetischen Anweisungen erscheinen, ha- 
ben aber ein eigenes arithmetisches Verb — 
mit folgendem Format: 

SET Indexname TO Numerischer-Wert. 

SET Indexname UP BY Numerischer-Wert. 

SET Indexname DOWN BY Numerischer-Wert. 


Numerischer-Wert kann eine Konstante oder 
jedes normale numerische Datenelement sein. 
Das Durchsuchen von Tabellen ist mit Ab- 
stand der wichtigste Arbeitsgang bei dieser 
Datenstruktur. Da der Zugriff durch Schlüssel- 
werte gesteuert wird, muß oft die gesamte Da- 
tei durchsucht werden, ehe ein Eintrag für 
einen bestimmten Schlüssel gefunden ist. CO- 
BOL unterstützt diesen Ablauf mit dem Verb 
SEARCH, das zwei Formate haben kann: 
SEARCH Tabellen-Name VARYING Index- 
Name (oder Numerisches-Element). 
AT END Direkte-Anweisung. 
WHEN Bedingung-1 Direkte-Anweisung. 


Die Bedingungen VARYING und AT END sind 
optional. Außerdem können beliebig viele 
WHEN-Bedingungen angeführt werden. 
SEARCH veranlaßt ein lineares Durchsuchen 
der Tabelle (das heißt, die Datenelemente 
werden nacheinander von Anfang bis Ende an- 
gesprochen). Wenn die angegebenen Bedin- 
gungen eingetreten sind und die Suche been- 


det ist, können bestimmte Abläufe ausgelöst 
werden. Direkte Anweisungen sind feste Vor- 
gänge, die keine Wahl- oder Verzweigungs- 
möglichkeit haben. IF ist keine direkte Anwei- 
sung, wohl aber MOVE. 

Das zweite Format von SEARCH sieht so aus: 

SEARCH ALL Tabellen-Name. 

AT END Direkte-Anweisung. 

WHEN Bedingung-1 Direkte-Anweisung. 


In diesem Fall ist nur eine WHEN-Bedingung 
möglich, die nach dem Schema 
Daten-Element = Wert 


(oder mehreren dieser Anweisungen, die 
durch ANDs verbunden sind) getestet werden 
muß. Im Gegensatz zur ersten Version führt 
dieses SEARCH-Format eine binäre Suche 
durch. SEARCH halbiert dabei wiederholt die 
Tabelle und entscheidet, in welcher Hälfte wei- 
tergesucht werden soll. Dabei müssen jedoch 
die Tabellenwerte in der richtigen Reihenfolge 
stehen, oder ASCENDING oder DESCENDING 
KEY in der Tabellendefinition angegeben sein. 

Die Dateien externer Geräte werden im Ma- 
schinenteil definiert. Jede Datei erhält dabei 
mit SELECT einen Namen. Das Format: 


SEMIRICH 


ee. 


COBOL läßt in seinem 
Datenteil die Definition 
komplexer Datensätze 
zu, auf die mit SEARCH 
und INDEX zugegriffen 
werden kann. Da die 
Arrays und ihre Zeilen 
separat deklariert wer- 
den, lassen sich die Da- 
ten mit Befehlen wie 
MOVE blockweise an- 
sprechen und bearbei- 
ten. 
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a Tray i 


ST 


02 Array-Zeile 


01 Kleiner-Zwei- 


03 Array-Element 
OCCURS 8 TIMES 


Dim-Array OCCURS 2 TIMES 
SELECT Datei-Name ASSIGN TO Geraete- 
Name 


Datei-Name ist eine COBOL-Bezeichnung; Ge- 
raete-Name ist systemabhängig und kann 
DSK, LPT oder einen Dateinamen des Systems 
annehmen. 

Mit Zusatzoptionen wie ORGANISATION und 
ACCESS läßt sich festlegen, wie die Datei auf 
dem Speichermedium untergebracht wird. OR- 
GANISATION hat drei Varianten: SEQUENTIAL 
(vom System vorgegeben), RELATIVE (eine 
Datei, die über Datensatznummern für den di- 
rekten Zugriff vorbereitet wurde) und IN- 
DEXED. Bei der Dateiorganisation SEQUEN- 
TIAL ist nur der ACCESS Typ SEQUENTIAL 
möglich. Die anderen beiden Varianten von 
ORGANISATION erlauben jedoch auch den 
Zugriff mit RANDOM (direkt auf einen be- 
stimmten Datensatz) oder DYNAMIC - einer 
Kombination von RANDOM und SEQUENTIAL. 

Bei Dateien, die mit INDEXED organisiert 
sind, muß ein RECORD KEY (Schlüsselfeld) 
deklariert werden. Schlüsselfeld kann jedes 
Datensatzfeld sein, das von einem Index ange- 
sprochen wird. Bei Dateien vom Typ RELATIVE 


1857 


en en. VE 


1858 


muß ein RELATIVE KEY deklariert werden, der 
mit einem numerischen Wert die Nummer des 
Datensatzes bezeichnet. 

Jeder in SELECT aufgeführt Dateiname muß 
in der FILE SECTION des Datenteils erschei- 
nen. Neben Systeminformationen wie Buffer- 
größe taucht hier der Dateiname in einer FD- 
Deklaration (File Definition) auf. Ihm folgen 
die Felddefinitionen der Datensätze. 

Der Verarbeitungsteil enthält eine Reihe von 
Verben, die speziell für die Dateiverarbeitung 
gelten. Jede Datei muß vor dem Zugriff eröffnet 
werden: 


OPEN Datei-Name FOR Zugriffs-Art. 


Zugriffs-Art kann INPUT, OUTPUT oder INPUT- 
OUTPUT sein. Nach Ende der Bearbeitung 
wird die Datei mit 


CLOSE Datei-Name. 


wieder geschlossen. Das Lesen und Schreiben 
geschieht mit den Verben READ und WRITE, 
die wie alle COBOL-Verben viele Optionen be- 
sitzen, darunter Datensatz- und Dateisperren 
für den Mehrplatzbetrieb. Das Grundformat: 
READ Datei-Name. 
WRITE Datensatz-Name. 


READ benötigt den Dateinamen und die Aus- 
führung eines Befehls, der den (im Datenteil) 
für diese Datei definierten Datensatz füllt, 
WRITE dagegen nur den Namen des Daten- 
satzes, dessen Inhalt dann an das per SELECT 
definierte Gerät übermittelt wird. 

Beim sequentiellen Dateizugriff liest READ 
den nächsten Datensatz aus der Datei und 
rückt dann auf den darauffolgenden Satz vor. 
Ist das Dateiende erreicht, wird erst die End- 
markierung gelesen und dann geprüft, ob sie 
das Dateiende bezeichnet. READ muß die Be- 
dingung „AT END“ enthalten. AT END gibt an, 
was beim Erreichen der Endmarkierung ge- 


schehen soll. Normalerweise wird in diesern 
Fall ein Datenelement als Flag verwandt: 

77 e-o-f PIC X VALUE 'N'. 

88 End-Markierung VALUE 'Y'. 


PROCEDURE DIVISION. 
MAIN-CONTROL-PARAGRAPHS. 
OPEN INPUT In-Datei, OUTPUT Out- 
Datei. 
READ In-Datei ATEND MOVE 'Y' TO e-o-f. 
PERFORM Prozess-Datensatz-Paragraph 
UNTIL End-Markierung. 
PERFORM Datei-Schließen. 
STOP RUN. 
PROCESS-RECORD-PARAGRAPH. 


WRITE QOut-Datei. 
READ In-Datei ATEND MOVE 'Y' TO e-o-f- 


WRITE schreibt die neuen Datensätze an das 
jeweilige Dateiende. 

Beim Dateizugriff mit RANDOM oder DYNA- 
MIC und der Dateiorganisation INDEXED oder 
RELATIVE läuft das Lesen und Schreiben in 
zwei Stufen ab. Zunächst wird ein entspre- 
chender Wert im Schlüsselfeld abgelegt und — 
im Fall von RELATIVE — die Dateisatznummer 
im RELATIVE KEY. Dann erst kann der Befehl 
READ ausgegeben werden. 

Dateien im Format INDEXED müssen den 
entsprechenden Wert in dem Feld RECORD 
KEY vorfinden. Wenn es zu dem Schlüssel kei- 
nen Datensatz gibt, wird hier statt AT END die 
Bedingung INVALID KEY ausgeführt. 

In diesen beiden Fällen schreibt WRITE nur 
die neuen Datensätze. Bereits bestehende Da- 
tensätze werden mit REWRITE aktualisiert 
oder mit DELETE gelöscht. REWRITE und DE- 
LETE brauchen ebenfalls die Bedingung IN- 
VALID KEY. 

READ Datei-Name NEXT RECORD. 


kann in jedem Fall sequentiell auf eine Datei 
zugreifen. 


Die COBOL-Reihe 


Da COBOL im Geschäftsbereich weit verbreitet 
ist, gibt es zwar viele Anwendungen für‘Micro- 
computer, aber nur wenige für Heimgeräte 
(die Speicherkapazität reicht hier selten aus). 
Ein COBOL-System muß mit mindestens einem 
Diskettenlaufwerk ausgestattet sein. Einige der 
bekannteren Versionen sind CIS-COBOL von 
Microfocus, Microsoft COBOL und RM/COBOL, 
die unter CP/M und MS-DOS laufen. 


Die Pakete lassen sich zwar auf Heimcompu- 
tern mit CP/M einsetzen (wenn genug Spei- 
cher vorhanden ist), sie sind jedoch recht 
teuer. Nevada COBOL bietet eine preisgün- 
stige Alternative. Es kann bei NewStar Soft- 
ware, 45 Plovers Mead, Wyatts Green, Dod- 
dinghurst, Essex, CM15 0PS bestellt werden. 


Kontakt zum CIA 


In der vorigen Folge wurden die E/A-Möglichkeiten des C 64 
behandelt. Wir wollen nun untersuchen, wie die beiden 6526 CIA 
Chips die Ein- und Ausgabe durchführen. 


er Commodore 64 besitzt zwei 6526 CIA- 

(Complex Interface Adaptor) Chips, die 
sich speziell um die Kommunikation mit der 
Außenwelt kümmern. Die CIAs sind jedoch 
nicht die einzigen Chips mit E/ A-Funktionen — 
auch der 6510 und die Video Chips steuern 
Teilbereiche der Ein- und Ausgabe. Ein 6526- 
Chip besitzt zwei Acht-Bit-Datenausgänge, die 
beide über individuell programmierbare Lei- 
tungen verfügen. Der Chip kann Daten im 
Acht- oder 16-Bit-Format übertragen und hat 
außerdem zwei 16-Bit-Timer, die sich verbin- 
den lassen. Er verfügt weiterhin über ein Acht- 
Bit-Shift-Register für die serielle Datenübertra- 
gung und eine programmierbare 24-Stunden- 
Uhr für vorhersehbare Ereignisse. 


„Data Ready“ 


Der Chip hat zwei Handshake-Leitungen: PC 
und Flag. PC wird für einen Taktzyklus auf 
niedrig geschaltet, nachdem Daten zum Aus- 
gang B des 6526 gesandt wurden, und kann 
daher einem externen Gerät das Signal „Data 
Ready“ anzeigen. Die Flag-Leitung kann die 
Steuersignale eines externen Gerätes entge- 
gennehmen. Damit läßt sich beispielsweise 
das Flag-Bit des Interrupt-Registers setzen. 

Auf dem Commodore 64 steuert jeder der 
beiden 6526 Chips unterschiedliche E/A-Be- 
reiche: CIA #1 (mit Basisadresse bei SDC00) 
ist für Tastatur und Joystick abgestellt und CIA 
#2 (mit Basisadresse bei $DD00) für die Da- 
tensteuerung der seriellen Schnittstelle und 
des User Ports. Der Video Chip führt die E/A 
zum Monitor aus, während der 6510 den Recor- 
derausgang direkt steuert. 

Das Programm Parawedge zeigt, wie der 
6526 direkt für E/A programmiert wird. Die 
Routine ist ein NMI-„Keil" und arbeitet mit der 
Flag-Leitung. Sie sendet einen bestimmten 
Speicherblock als parallele Daten zum User 
Port oder empfängt Acht-Bit parallele Daten, 
bis der definierte Speicherblock voll ist. Da die 
Daten per NMI ausgesandt oder empfangen 
werden, kann die Maschine in der übrigen Zeit 
andere Aufgaben ausführen. Bei hohen Über- 
tragungsraten muß sich der Commodore 64 al- 
lerdings hauptsächlich den NMI-Routinen wid- 
men und andere Vorgänge vorübergehend 
„vernachlässigen“, 

Parawedge richtet auf dem Commodore 64 
eine Acht-Bit parallele Datenübertragung mit 


einem externen Gerät (beispielsweise einem 
anderen Computer oder einem Paralleldruk- 
ker) ein, die in beide Richtungen funktioniert 
und über den User Port abläuft. Dabei werden 
die Kontakte PBO bis PB7 für die Datenübertra- 
gung genutzt, Flag 2 für eingehende Handsha- 
kesignale, PA2 für das Signal „sendebereit“ 
und PC2 für die Bedingung „Daten korrekt 
empfangen‘. Vor Einsatz des Programms müs- 
sen Sie zunächst festlegen, welchen RAM-Be- 
reich Sie für die ein- oder ausgehenden Daten 
einsetzen wollen. Dabei werden die Anfangs- 
und Endadresse (im Format Lo-/Hi-Byte) mit 
POKE an die vier Speicherstellen von 50768 bis 
50771 übergeben. 

Speicherstelle 50772 gibt an, ob das Pro- 
gramm senden oder empfangen soll. Eine Eins 
schaltet auf Sendung, eine Null auf Empfang. 
Der eigentliche Programmcode beginnt 
schließlich bei SYS 50775. 


Das Programm Parawedge 
für den Commodore 64 


BASIC-Ladeprogramm 


iO98 REM ** PARÄWEDGE BASIC LOARDER ##* 
1818 DATA173,84,198,208,61,169,8,141,3 
1828 DATA221,169,144,141,13,221,173,2 
1838 DATR221,9,4,191,2,221,173,0,221,9 
184@ DATAY,141,9,221,173,88,198,133,251 
1858 DATA173,81,198,133,252,173,24,3 
1862 DATA141,85,198,173,25,3,141,86,198 
1878 DATA129,169,188,141,24,3,169,198 
18808 DATA141,25,3,88,96,169,255,191,3 
10938 DATA2?1,169,194,141,13,221,173,24 
1188 DATA3,141,85,198,173,25,3,141,86 
1118 DATA198,129,169,234,141,24,3,169 
1128 DATA198,141,25,3,88,96,169,144,44 
1138 DATA13,221,248,36,173,1,221,195 
1190 DATA2S1,239,251,298,2,238,252,173 
1158 DATA8S2,198,197,251,173,83,198,229 
1169 DATA2S2,144,49,173,0,221,41,252 
1178 DATA141,9,221,9,4,141,08,221,108,85 
118@ DATA198,169,144,44,13,221,248,246 
1198 DATA177,251,141,1,221,230,251,288 
1288 DATA2 ‚239 ,252,173,82,198,197,8251 
1218 DATA173,83,198,2293,252,144,3,108 
122@ DATASS,198,129,173,85,198,1941,24,3 
1238 DATA173,86,198,141,25,3,88,108,24 
1242 DATA3 
1258 DATA25596 : REM*ACHECKSUMXx 
1268 CC=8 
1278 FOR1=590775T0590971 
1288 READX:CC=CC+X:POKEI,X 
1298 NEXT 
138 READX: IFCC < X THENPR INT"CHECKSUM 
ERROR" * 
1318 END 


Das Assemblerlisting 
von Parawedge kann 
eingegeben und mit 
einem Assembler in 
den Maschinencode 
übersetzt werden. Über 
das BASIC-Ladepro- 
gramm läßt sich das 
Programm auch mit 
DATA-Befehlen einle- 
sen. 
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Das Programm im Assemblercode 


EB SE SS ER SE LE TE LEI EI TE EI EI en 2 


? 


F 


G 
r 
; 
’ 


* 


* PARAWEDGE - A SEND/RECEIVE 
* 
* WEDGE PROGRAM FOR 8 BIT PARALLEL 


“ 


* COMMUNICATIONS ON THE CBM 64 


* 


KR 


RAR 


’ 


CIA2 = spnaa 
OUTPUT = $FF 
INPUT = $908 
OUTSHK = 594 
INTMSK = $98 
TOGHI = $94 
TOGLO = $FC 
NMIVEC = $9318 
ZPTEMP = $FB 
* = 36659 
START x=r++2 
END x=x+2 
MODE x=x+1 
VECTOR x=++2 


LDA MODE 
BNE OUTDAT 
LDOA #1NPUT 
sta CIA2+3 
LDA # INTMSK 
sTa CIA2+13 
LDA CIA2+2 
ORA #OUTSHK 
sTA CIA2+2 
LDA CIA2 
ORA #TOGHI 
sta CIA2 
LDA START 
sSTA ZPTEMP 
LOA START+I 
STA ZPTEMP +1 
’ 


‚INITIALISE INPUT WEDGE 


G 
LDA NMIVEC 
STA VECTOR 
LDA NMIVEC+I 
STA VECTOR+1 
Se 
LDA #<NXTIN 
STA NMIVEC 
LDA #>NXTIN 
STA NMIVEC+I 
cuLI 
RTS 

2 


: INITTALISE OUTPUT WEDGE 


. 
F 


QUTDAT 


LDA #OUTPUT 
sSTA CIA2+3 
LDA #1NTMSK 
sTA CIA2+13 


NMIVETC 
VECTOR 
NMIVEC +1 
VECTOR+1 


#<NXTOUT 
NMIVEC 

#>NXTOUT 
NMIVEC#+1 


. 
’ 
; 
’ 


‚6526 CHIP BASE ADDR 


+START ADDRESS 

’END ADDRESS 

» INPUT/OUTPUT FLAG 
STORAGE FOR MI VECTOR 


» INPUT OR OUTPUT 
»BRANCH IF OUTPUT 


;SET DDR FOR INPUT 


»FLAG INTERRUPTS DISABLED 


SET PAZ FOR QUTPUT 


MX<TIN 


L.DA #INTMSK 
BIT CIA2+13 
BE@ NOTCOM 


OF. BYTE ON PORT 


cıin2+1 
(ZPTEMP) ,Y 
ZPTENP 
TESTI \ 
ZPTEMP+1 


END 
ZPTEMP 
END+1 
ZPTEMP +1 
DONE 


»CHECK ICR 
INT CAUSED BY FLAG? 
»NO.. NORMAL NMI 


‚READ BYTE 
;STORE, IN MEMORY 


# INCREMENT POINTER 


:CHECK TO SEE IF ENDEO 


+BRANCH IF FINISHED 


TFLL DEVICE READY FOR NEXT BYTE 


cıia2 
#TOGLO 
cıA2 
#TOGHI 
cıa2 


;TOGGLE PA2 LOW THEN HIGH 


DO NORMAL NMI ROUTINE 


NOTCOM 


JMP (VECTOR) 


INPUT DATA SERVICE ROUTINE 


:SET HANDSHAKE LINE PA2 HIGH A len Mrd dlnkden 


NXTOUT 
LDA # INTMSK 
BIT CIA2+13 
BEQ NOTCOM 


»MOVE POINTERS TO ZERO PAGE & 
»CHECK ICR 


> INTERRUPT CAUSED BY FLAG? 
»NO.. DQ NORMAL NMI 


OK SEND BYTE 
SAVE OLD NMI VECTOR 


LDA <ZPTEMP),Y 
sta Ciın2+1 


’GET BYTE FROM MEMORY 
+0UTPUT IT. PC WILL 60 
»LOW FOR I CYCLE 

INC ZPTEMP 


INSERT DATA-INPUT WEDGE BNE TEST2 
INC ZPTEMP +1 


» INCREMENT POINTER 


TEST2 
LDA END 
CMP ZPTEMP 
LDA END+1 
SBC ZPTEMP+1 
BCC DONE 


:CHECK TO SEE IF ENDED 
»BRANCH IF DONE 


»SET DDR FOR QUTPUT CONTINUE NORMAL NMI ROUTINE 


’FLAG INTS DISABLED JMP (VECTOR) 


FINISHED REMOVE WEDGE 


+SAVE OLD NMI VECTOR 
DONE 


SEI 
- LDA VECTOR 
INSERT DATA-OUTPUT WEDGE STA NMIVEC 
LDA VECTOR +1 
STA NMIVEC+1 
CLI 
JMP_ <NMIVEC) 


Parawedge stammt aus ‚Mastering The Commo- 
dore 64’ von Jones und Carpenter und wird mit 
freundlicher Genehmigung der Autoren und der 
Ellis Horwood Ltd. abgedruckt. 


»RESET NMI VECTOR TO 
ORIGINAL VALUE 


Hardware m 


Fast MSX-Standard 


Die amerikanischen Spectravideo-Computer 318 und 328 erfüllen 
einige Anforderungen des MSX-Standards. Spectravideo ist auf dem 
europäischen Markt relativ unbekannt, doch sind die Rechner wegen 
ihrer günstigen Preislage und ihrer Ausbaufähigkeit durchaus 


interessant für private Anwender. 


er Spectravideo 318 ist ein preiswerter 

Heimcomputer, der in mancher Hinsicht 
einem Vergleich mit dem Commodore 64 
standhält. Er verfügt über einen dreistimmigen 
Synthesizer-Klangbaustein,. hochauflösende 
Grafik einschließlich Sprites, einen eingebau- 
ten Joystick und einen Modulschacht. 

Die Tastatur erfüllt fast die MSX-Spezifika- 
tionen. Sie entspricht vom Aufbau her der des 
Sinclair Spectrum und hat auch ähnliche Gum- 
mimembrantasten, ist aber großzügiger und 
solider angelegt, so daß sich besser damit ar- 
beiten läßt. 

Den Cursor-Tastenblock ersetzt ein inte- 
grierter Joystick. Sein Griff ist nur locker in 
eine Kippscheibe eingesteckt; zieht man ihn 
heraus, kann der Cursor durch direkten Druck 
auf Fingermulden in der Scheibe nach oben, 
unten, rechts oder links bewegt werden. 


Ebensogut können Sie natürlich den Joystick 


verwenden, etwa um den Cursor bei Pro- 
grammkorrekturen schnell und sicher an die 
Fehlerstelle zu führen. 

Das Spectravideo-BASIC ist eine Microsoft- 
Version, eng verwandt mit dem MSX-BASIC. 
Die BASIC-Programmierung wird durch den 
bildschirmorientierten Editor (mit automati- 
scher Zeilennumerierung usw.) sehr erleich- 
tert. Zwar fehlen „strukturierte“ Befehle wie 
WHILE...WEND und REPEAT. . .UNTIL, die bei 
anderen BASIC-Fassungen zu finden sind, 
aber es gibt das vollständige IF... 
THEN.. .ELSE, das für eine übersichtliche und 
effiziente Programmierung unerläßlich ist. Das 
BASIC schöpft auch die Grafikmöglichkeiten 
des Rechners voll aus. 

Die grafische Darstellung ist mit 256 x 192 
Punkten und 16 Farben ganz brauchbar, ob- 
wohl die Farbbelegung eines einzelnen Pixels 
nicht möglich ist. Verglichen mit einigen ande- 


Die Tastatur des 318 er- 
füllt nahezu die Anfor- 
derungen des MSX- 
Standards. Es handelt 
sich wie beim Spectrum 
um eine Gummimem- 
branausführung, sie ist 
aber solider und weni- 
ger eng angelegt. Zur 
Ausstattung gehören 
neben den üblichen 
Control-, Escape-, Tab- 
und Backspace-Tasten 
fünf doppelt belegbare 
Funktionstasten, eine 
STOP- und eine SE- 
LECT-Taste sowie die 
Editiertasten INSert, 
DELete und COPY. Gra- 
fikzeichen werden 
durch Betätigung einer 
der Buchstabentasten in 
Verbindung mit der 
LEFT GRPH- oder der 
RIGHT GRPH-Taste 
aufgerufen. 
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ren Rechnern mag das etwas dürftig erschei- 
nen, aber für die praktisch erreichbare Grafik- 
qualität ist der Bedienkomfort eigentlich wich- 
tiger als die Rasterspezifikation — und der 318 
verfügt über alle Grafikerweiterungen des Mi- 
crosoft-BASIC, etwa über Funktionsbefehle 
zum Zeichnen von Punkten, Linien, Kästchen, 
Kreisbögen und Ellipsen. Zum Füllen von Flä- 
chen dient das PAINT-Kommando, und mit 
speziellen VPOKE- und VPEEK-Anweisungen 
läßt sich der Bildspeicher direkt ansprechen. 
Außerdem gibt es eine Art „Grafiksprache", 
die in Verbindung mit dem DRAW-Befehl die 
Darstellung komplexer Formen und Zeichnun- 
gen unterstützt. 

Beliebige rechteckige Bildschirmausschnitte 
können mit GET in ein BASIC-Array übertra- 
gen und mit PUT wieder auf den Schirm ge- 
bracht werden. Diese Befehle sind sehr nütz- 
lich für den Aufbau regelmäßiger Muster und 
für Spiegelungs- oder sogar einfache Bewe- 
gungseffekte. Zudem ermöglicht der Video- 
Chip 9929 die Definition von Sprites. 

Die Anweisung ON SPRITE GOSUB erlaubt 
die Aufstellung einer „Ereignisfalle“ (Event 
Trap). Das Programm läuft dann normal, aber 
sobald zwei Sprites kollidieren, verzweigt das 
System zu einer Interrupt-Routine. Auf diese 
Weise kann beispielsweise überwacht wer- 
den, ob ein Geschoß ein Raumschiff getroffen 
hat, ohne daß der Programmierer ständig alle 
möglichen Ereignisse im Auge behalten 
müßte. Das beschleunigt die Entwicklung und 
den Ablauf der Programme; ähnliche Ereignis- 
fallen können auch für die Funktionstaste oder 
den Joystick installiert werden. 

Für eine vielseitige Klangerzeugung verfügt 
der Soundchip des Spectravideo über drei 
Stimmen und eine Anzahl von Spezialeffekten. 
Damit lassen sich eindrucksvolle Ergebnisse 
erzielen, obwohl BASIC für aufwendigere 
Klangstrukturen nicht besonders geeignet ist. 
Die Wiedergabe erfolgt über ein Fernsehge- 


Großer Bruder 

Eine attraktive Alternative zum 318 ist der Spectra- 
video 328 — eine aufwendigere Version mit 
Schreibmaschinentastatur, 80 KByte RAM und ein- 
gebautem Textverarbeitungsprogramm. Er ist für 
den Ausbau zum Bürosystem besser geeignet. 
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Integrierter Joystick 

Der eingebaute Joystick ersetzt die üblichen Cur- 
sorsteuerungstasten. Bei abgezogenem Handgriff 
läßt sich der Cursor auch durch Fingerdruck auf 
die Trägerplatte nach oben, unten, links oder 
rechts führen. Der Einbau des Joystick ist mehr als 
eine kosmetische Verbesserung, denn mit ihm las- 
sen sich auch Diagonalbewegungen ausführen. 


Modulschacht 
Durch eine Ausspa- 
rung werden Steck- 
module in einen so- 
ROM liden Sockel gesetzt. 
Das Spectravideo- 

BASIC ist in zwei 


ROMs zu je 16 KByte 
untergebracht. 


Erweiterungs- 
stecker 

Hier läßt sich unter 
Zwischenschaltung 
einer Erweiterungs- 
box Zubehör anschließen. 


Micro- 

Prozessor 

Als CPU wurde der 
millionenfach ver- 
breitete Z80 von Zi- 
log verwendet. 


Monitor- 

ausgang 

Ein HF-Modulator ist 
beim 318 nicht eingebaut; 
die Verbindung mit dem 
Fernsehgerät muß daher 
extern erfolgen. 


rät, und dort ist auch die Lautstärke zu regeln. 

Der 318 weist Schnittstellen für zwei Joy- 
sticks, Cassettenrecorder und Steckmodule 
auf und hat eine Erweiterungs-Steckleiste. Es 
wird eine ganze Menge an Zubehör angebo- 
ten, allerdings nicht eben das billigste. Für 
dessen Anschluß ist der Erwerb eines „Mini- 
Expanders“ erforderlich, der für genau ein Zu- 
behörteil reicht — das ist zunächst meist eine 
16- oder 64-KByte-Speichererweiterung. Für 
den weiteren Ausbau benötigt man den „Su- 
per-Expander" mit einem Steckleistensystem 
ähnlich wie beim Apple II; damit stehen zu- 
sätzlich sieben Anschlußmöglichkeiten für 
Speicherkarten, Druckerschnittstellen, Disket- 
tenlaufwerke oder Modems zur Verfügung. Für 
Spiele-Fans dürfte der Coleco-Spieladapter 


Cassettenrecorder- 
Anschluß 

Am 318 ist nur der spe- 
zielle Spectravideo-Re- 
corder verwendbar. Der 
Anschluß wird über 
einen Platinenstecker 
hergestellt. 


Integrierter 
„Joystick 


®. 
Spectravideo 
““ Statt der üblichen Cur- 
sortasten wird beim 318 


eine Kippscheibe ver- 
wendet, die einen ab- ABMESSUNGEN: 


nehmbaren Griff trägt. 410 x 220 x 80 mm 


ZENTRALEINHEIT: 
280 


| 
| 


SPEICHER: 


32 KByte RAM, davon etwa 12K 
für BASIC-Programme verfüg- 
bar, 32 KByte ROM 


BILDSCHIRMFORMAT: 


24 Textzeilen zu 40 Zeichen, 80- 
Zeichen-Karte als Extra; Grafik- 
auflösung maximal 256 x 192 
Punkte bei 16 Farben, außer- 
dem Sprite-Grafik 


SCHNITTSTELLEN: 


Erweiterungssteckleiste, Mo- 
dulschacht, Cassettenrecorder- 
Anschluß, zwei Joystick-Ein- 


gänge, Monitorausgang 


VERFÜGBARE SPRACHEN: 
BASIC 


TASTATUR: 


Gummimembranausführung mit 
Funktions- und Editiertasten; 
eingebauter Joystick statt Cur- 
sortastenfeld 


DOKUMENTATION: 


Dürftige und fehlerhafte 
Anleitung. 


STÄRKEN: 


Viele der MSX-Spezifikationen 
werden erfüllt. Der Rechner 
verfügt über ein ausgezeichne- 
tes BASIC, Sprite-Grafik und 
einen integrierten Joystick. 


SCHWÄCHEN: 


’ Mangelnde Software, keine 
Interface-Chip serienmäßige Druckerschnitts- 
Der Schnittstellenbaustein telle, spezieller Cassetten- 


8255 wickelt den Daten- recorder erforderlich. 
verkehr ab. 


von besonderem Interesse sein. Damit läuft auf 
dem 318 die Steckmodul-Software für die Co- 
en leco-Videospiele, allerdings ist das ein relativ 
% Soundchip teurer Spaß. 

. ann een Der 318 gehört zu den wenigen Rechnern, 
gen, als Tongenerator die noch einen speziellen Cassettenrecorder 
dient der Chip 8910. brauchen. Das bringt zwar mehr Zuverlässig- 
keit und kürzere Zugriffszeit, treibt aber insge- 


samt den Preis hoch. 


Tideibänsiein .  eneiiige Eu Interessant ist der 318 vor allem wegen sei- 

er vıdaeochı wır oz sh] 1 ı 

Sch nen nachträglich pazität von 32 KByte ner Ausbaufähigkeit. Ist der Anwender bereit, 

hinzugefügten Kühlkör- wurde in einer Doppel- in den Super-Expander, das 64-KByte-RAM, 

per verdeckt. reihe von 16 RAM-Chips die 80-Zeichen-Karte und ein Diskettenlauf- 
untergebracht. 


werk zu investieren, so läßt sich das System 
durchaus mit einem kleinen CP/M-Bürocom- 
puter vergleichen. 
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Aus Arm mach RAM 


Nach der Kalibrierung kann der 
Digitalisier-Arm in Betrieb ge- 
nommen werden. Wir führen ein 
Programm vor, das abgetastete 
Umrisse auf dem Bildschirm des 
Acorn B darstellt. 


D: erste Schritt zur Programmentwicklung 
ist das Einmessen der Hardware. Das Kali- 
brierprogramm nutzt dazu vier Potentiometer- 
Meßwerte bestimmter Arm-Positionen: Null- 
stellung (armzero) des Oberarms (arm) und 
des Unterarms (arm2) sowie die 90-Grad- 
Stellung (armninety) von Oberarm und Unter- 
arm. Diese Werte werden in die Zeilen 1200, 
1210, 1240 und 1250 des Programms als Teil der 
„define _parameters"-Routine eingegeben. 
Zwei weitere Parameter können von Tracer zu 
Tracer verschieden sein — die Längen der 


Kalibrierung 


Für die Kalibrierung benötigen wir vier Eich- 
werte: Die 0- und 90-Grad-Stellungen des 
Oberarms und die 0- und 90-Grad-Positionen 
des Unterarms. Wenn das Kalibrierprogramm 
läuft, richten Sie dazu den Oberarm parallel 
zur Oberkante der Grundplatte, den Unterarm 
parallel mit der seitlichen Kante aus. 

Schreiben Sie die Werte auf. Als nächstes 
beide Armteile parallel zur seitlichen Kante 
der Grundplatte ausrichten und erneut die 
Werte notieren. Durch einen Tastendruck ge- 
hen Sie nun in den angle-Modus. 

Die vier aufgeschriebenen Werte müssen 
jetzt — auf die entsprechenden Bildschirm- 
meldungen hin — eingetippt werden. Prüfen 


Eichpositionen 


Oberarm — 0 


Oberarm — 90 
Unterarm — 90 


Unterarm — 0 


Armteile (length). Sie werden in den Zeilen 
1220 und 1260 festgehalten. Beachten Sie, daß 
die Eingabe in Millimetern erfolgen soll. Beim 
Unterarm muß bis zum Fadenkreuz auf dem 
Visier gemessen werden. 

Wenn die vier Kalibrierwerte bekannt sind, 
lassen sich damit die vom eingebauten Ana- 
log/Digitalwandler des Acorn B digitalisierten 
Meßwerte der Potentiometer in Winkel um- 
rechnen: 


Da der zweite Teil des Ausdrucks eine Kon- 
stante (factor) ist, wird er nur einmal berechnet 
und später bei allen Berechnungen erneut ver- 
wendet. Mit der Umrechnung 


läßt sich die Formel dann so schreiben: 


Sie, ob die angezeigten Winkel für beide 
Arme stimmen! Falls nicht, müssen Sie noch 
einmal von vorne beginnen. Verwahren Sie 
den Zettel mit den notierten Werten — er 
wird für das Steuerprogramm noch einmal 
gebraucht. 


1888 
18018 
1028 
1030 
1048 
1858 
1058 
1876 
1888 


REM **** BBC TRACER CALIBRATION #x*%% 
PROCcalibrate 

PROCdisplay_angle 

END 

DEF PRÜCcalibrate 

cLS 

PRINT TAB(S,18);"ANGLE 1";TAB(28) ;"ANGLE 2" 
REPEAT 

PRINT TAB(5,12);SPC(48) 

1898 PRINT TAB(S5,12) ;ADVALC1) TAB ZU )ADVAL(2) 
1186 PRÜCdelay(s88) 

1118 A$=INKEY$(1) 

1126 UNTIL Asc>"" 

1138 ENDPROC 

1158 DEF PROCdisplay_angle 

1166 PROCdefine_angles 

1178 CLS 

1188 PRINT TAB(S,18);"ANGLE 1";TAB(28) ;"ANGLE 2" 
1198 REPEAT 

1288 PROCcalc_angles 

1218 PRINT TAB(5,12>;SPC(48) 

1228 PRINT TAB(S,12) ;anglei;TAB(28)angle2 

1236 PROCdelay(1888) 

1248 A$=INKEY$(1) 

1250 UNTIL As<>"" 

1258 ENDPROC 

1286 DEF PROCdefine_angles 

1296 CLS 

1388 PRINT TAB(S,10);:INPUT"ist arm zero position" 
jone_zero 

1318 PRINT TAB(S);:INPUT"Ist arm ninety position" 
sone_ninety 

1328 PRINT TAB(5);:INPUT"2nd arm zero position" 
;two_zero 

1338 PRINT TAB<(SI;:INPUT"2nd arm ninety position" 
;two_ninety 

1348 one_factor=98/(one_ninety-one_zero) 

1358 two_factor=96/Ctwo_ninety-two_zero) 

1368 ENDPROC 

1388 DEF PROCcalc_angles 

1396 angalei=INT(<ADVAL(1)-one_zero)*one_factor) 
1488 angle2=INTC (ADVAL(Z2)-two_zero)*two_factor) 
1428 DEF PROCdelay(delay) 

1438 LOCAL I 

1448 FOR I=1 TO delay:NEXT I 

1458 ENDPROC 

1468 PROCdelay(1t888) 


Winkel 1 


Winkel 2 


Das Unterprogramm calc_xy ermittelt aus den 
aktuellen Winkelmeßwerten der beiden Poten- 
tiometer die Verschiebung des Fadenkreuzes 
in bezug auf die x- und y-Achse. Die dabei ver- 
wendeten geometrischen Verfahren sind nicht 
übermäßig kompliziert. xl und yl stehen mit 
der Länge des Oberarms in einem durch Si- 
nus- und Cosinusfunktionen beschreibbaren 
Verhältnis: 

x1=COS(angle1)*length_arm1 

y1=SIN(angle1)*length_arm! 


Die Berechnung von x2 und y2 geschieht et- 
was anders, weil hier auch die Stellung des 
Oberarms bedeutsam ist: 

x2 = COS(angle1 + angle2)*length_arm2 

y2 = SIN(angle1 + angle2)*length_arm2 


Die gesamte x- und y-Verschiebung ergibt 
sich durch Addition der gültigen Werte von xl 
und x2 bzw. yl und y2. 

Die im Unterprogramm calc_xy verwendeten 
Formeln weichen von den obigen ein wenig 
ab. Die Variablen der Armlängen sind darin so 
umgerechnet, daß sich die Werte direkt im 
Grafik-Koordinatensystem des Acorn B ver- 
wenden lassen. 

Die beste Methode zum Speichern des Bild- 
schirminhalts ist, mit einem Maschinenpro- 
gramm den in MODE 1 verwendeten RAM-Be- 
reich zu speichern. Wenn der Bildschirm seit 
dem letzten CLS nicht mehr gescrollt worden 
ist, liegt dieser Bereich zwischen &3000 und 
&IFFF. Problematisch ist allerdings, daß der 
Filename nicht direkt als Stringvariable an den 
*SAVE-Befehl übergeben werden kann. Der 
nachfolgende Befehl 


*SAVE file$ 3000 8000 


speichert die Datei mit dem Namen file$, nicht 
aber den String in der Variablen file$. Der Bild- 
schirminhalt kann daher nicht ohne weiteres 
unter verschiedenen Filenamen auf Cassette 
oder Diskette abgespeichert werden. Mit dem 
Betriebssystemaufruf OSCLI kann man das 
Problem glücklicherweise umgehen: Dieser 
Befehl führt einen im Speicher befindlichen 
Block mit ASCII-Codes genau so aus, als ob 
die entsprechenden Zeichen direkt über die 
Tastatur eingegeben worden wären. Dazu 
müssen wir die Startadresse des ASCII-Blocks 
im Lo-Byte/Hi-Byte-Format in die Register X 
und Y schreiben. Zur Ausführung von *SAVE 
und *LOAD wird der Befehl (zusammen mit 
dem gewählten Filenamen) zuerst in einen 
String assembliert. Danach werden die ASCII- 
Werte der Zeichen dieses Strings in einen 
freien Speicherbereich geschrieben. Wenn 
nun das X- und das Y-Register auf die Start- 
adresse dieses Bereichs zeigen, wird der ge- 
speicherte Befehl durch Aufruf von OSCLI an 
Adresse &FFF7 ausgeführt. Unser Programm 
enthält für diesen Zweck in Zeile 2170 die Rou- 
tine „oscli_command". 


Neue Farben einstellen 


Der Bildschirminhalt kann durch Drücken von 
C gelöscht werden. Mit M springt das Pro- 
gramm ins Hauptmenü zurück. Die zweite Me- 
nüoption können Sie jetzt noch nicht anwählen 
— dazu wird der nächste Programmteil ge- 
braucht, den wir im folgenden Abschnitt brin- 
gen. Neue Farben für den Vordergrund lassen 


1865 


1866 


& 
1080 
1090 
1100 
1110 


1120 VDU 23,1,0505050; 

1130 PROCmenu 

1140 CLS 

1150 IF ans$="1" THEN PROCfreehand ELSE PRülelastic 


1160 
1170 


sich jederzeit mit den Tasten 1, 2 oder 3 ein- 
stellen. Diese Farben sind die im Mode 1 vor- 
eingestellten Farben und können durch den 
Befehl VDU 19 geändert werden. 

Mit der hier vorgestellten ersten Programm- 
hälfte können Sie den Arm frei führen (Frei- 
hand-Modus). Mit dem zweiten Programmteil 
wird auch die Definition von Punkten, Strichen 
und Kreisen möglich. Im Freihand-Modus sind 
sechs Funktionen verfügbar: Mit dem am Digi- 
talisiertablett montierten Taster können Sie 
den „Stift“ aufsetzen und Linien ziehen (draw) 
oder ihn hochheben und ohne Linie auf dem 
Bildschirm bewegen (move). Der Taster ist mit 
den Joystick-Feuerknopf-Anschlüssen des 
Analogport verbunden und wird mit Hilfe der 
beiden niederwertigen Bits im ADVAL(0)-Regi- 
ster abgefragt. Wird einer der beiden Feuer- 
knöpfe gedrückt, geht das entsprechende Bit 


REM *%* BBC DIGITAL TRACER ** 


PROCdefine_parameters 


REPEAT 
MODE 1 


REM CURSOR OFF 


UNTIL endflag=i 


END 


+tangle2) 


auf High (1). Bei (ADVAL(OJANDI)<>O 
wurde ein Feuerknopf gedrückt, und die ent- 
sprechende Reaktion erfolgt prompt. In unse- 
rem Programm wird dadurch die Variable „tog- 
flag“ von O auf | (oder umgekehrt) gesetzt. Das 
Unterprogramm „draw“ fragt „togflag" ab und 
entscheidet entsprechend dem gespeicherten 
Wert, ob der nächste Punkt mit DRAW oder mit 
MOVE angesteuert wird. 


Kreuz im Visier 


Auf dem Bildschirm wird die Visierposition 
durch ein kleines Kreuz dargestellt. Durch den 
„Exclusive OR"-Zeichenmodus kann es ohne 
Beeinträchtigung der Darstellung bewegt und 
auch gelöscht werden. Jede Linie kann in die- 
sem durch GCOL3 angewählten Modus auch 
wieder beseitigt werden. 


1890 y=1023-(one_scale*SIN(anglel)+two_scalex*SIN( 
angleltangle2)) 


1700 ENDPROC 
1720 DEF PROCmenu 
1730 exitflag=0:endflag=0 


1740 PRINT TAB(5,10);"Please choose" 


1750 PRINT TAB(5);"1...Freehand mode" 
1760 PRINT TAB(S);"2...Elastic mode" a 
1770 PRINT:PRINT TAB(S);"Press I or 2" 


1780 REPEAT:ans$=GET$:UNTIL ans$="1" OR ans$="2" 
1790 ENDPROC 


Im Programm sind für die Länge der Armteile und 1810 DEF PROCtoggle_pen 
i -Meßwerte bereits Daten vorgegeben IS ELatSgr lag 1 -E005180 
Potentiometer-Meßwerte berei geg . 1830 REPEAT UNTIL. (ADVALCO) AND 3)=0 


1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 


DEF PROCdefine_parameters 
one_zer0o=14820 
ninety=45020 


one 


one_factor=90/(one_ninety-one_zero) 
two_zer0=450 

two_ninety=25300 

two_length=222+28 


1840 ENDPROC 
1860 DEF PROCfreepress 

Sr 1870 IF ans$="C" THEN CLS:PROC#free_inform:ENDPROC 
one_length=250 1880 IF ans$="M" THEN exitflag=i 

e 1890 IF ans$="S" THEN PROCsave_screen:PRÜCfree_in 
= form:ENDPROC 

1900 IF ans$="L" THEN PROCIoad_screen:PROCfree_in 

form:ENDPROC 


1270 two_factor=90/(two_ninety-two_zero) 1910 PROCcolour_change 
1280 REM ** MM TO GRAPHICS COORDS CONVERSION FACT 1720. /ENDPROC e 
ORS *%* 1940 DEF PROCfree_inform 
1290 scale=1023/460 1950 PROCcalc_xy:oldx=x:0ldy=y:PROCcursor(oldx,oldy) 
1300 one_scale=scale*one_length 1980 PRINT TAB(1,1);SPC(79) 


1310 
1320 


two_scale=scale*two_length 
REM SCAN 2 ADC CHANNELS ONLY 


1970 PRINT TAB(1,1);"S=Save 
1980 GCOL 0,1:MOVE 0,920:DRAW 1280,920 
1990 ENDPROC 


L=Load M=Menu C=Clear" 


1330 *FX 16,2 
2010 DEF PROCco! 
1340 endflag=0:togflag=0:colour=1 2050 RIEF ENIURE 
1350 DIM save% 30:DIM x(3),y(3) 
1380 ENDPROC 2030 IF ans<i OR ans>3 THEN ENDPROC 


1380 DEF PROCfreehand 

1390 PROCfree_inform 

1400 REPEAT 

1410 IF (ADVAL(0) DIV 256)<>0 THEN PROCdr aw 
1420 IF (ADVAL(0) AND 3)<>0 THEN PROCtoggle_pen 
1430 ans$=INKEY$(L):IF ans$<>"" THEN PROCfreepress 
1440 UNTIL exitflag=i 

1450 ENDPROC 

1470 DEF PROCdr aw 

1480 PROCcalc_xy 

1490 PROCcursor (oldx,oldy) 

1500 MOVE oldx,oldy 

1510 IF togflag=0 THEN DRAW x,y ELSE MOVE x,y 
1520 PROCcursor(x,y) 

1530 oldx=x:oldy=y 

1540 ENDPROC 

1560 DEF PROCcursor(cx,cy) 

1570 GCOL 3,3:REM EOR PLOT MODE 

1580 MOVE cx,cy-16 

1590 PLOT 1,0,32 

1600 PLOT 0,-16,-1& 

1610 PLOT 1,32,0 

1620 GCOL 0,colour 

1630 ENDPROC 


Dieser Programmteil rechnet die Potentiometer- 
Meßwerte in die horizontalen und vertikalen 
Komponenten x und y um. 


1650 DEF PROCcalc_xy 

1660 anglei=RAD((ADVAL(1)-one_zero)*one_factor) 
1670 angle2=RAD( (ADVAL (2) -two_zero)%*two_factor) 
1680 x=one_scale*C0S(anglel)+two_scale*#C0S(anglei 


2040 colour=ans 
2050 ENDPROC 


Dieser Programmteil liest den Bildschirminhalt in 
einen RAM-Bereich, der durch Aufruf von OSCLI 
geladen und gespeichert werden kann. 


2070 DEF. PROCsave_screen 

2080. PROCcursor(x,y):REM CURSOR OFF 
2090 REPEAT 

2100 PRINT TAB(1,1);SPC(79) 

2110 INPUT TAB(1,1);"SAVE FILENAME";Ffile$:files=f 
iNaS+"7S“ 

2120 UNTIL LEN(#file$)<8 

2130 files="*SAVE "+file$+" 3000 8000" 
2140 PROCoscli_command(file$) 

2150 ENDPROC 

2170 DEF FROCoscI i_command(a$) 

2180 FOR I=0 TO LEN(a$)-1 

2190 save%?I=ASC(MID$Ca$,I+1,1)) 

2200 NEXT I 

2210 savef%?I=13:REM ADD CR 

2220 X%=save“% MOD 256:YX=savei DIV 256 
2230 CALL &FFF?:REM CALL OSCLI 

2240 ENDPROC 

2260 DEF PROCIoad_screen 

2270 REPEAT 

2280 PRINT TAB(1,1);SPC(79) 

2290 INPUT TAB{1,1);"LOAD FILENAME" ;Kile$:files=f 
iles+".S" 

2300 UNTIL LEN(file$)<8 

2310 file$="#LOAD "+files 

2320 PROCosc1 i_command(file$) 

2330 ENDPROC 


Farbenfreude 


Wir untersuchen, wie über die Register des VIC-II des Commodore 64 
unterschiedliche Darstellungsmodi erzeugt werden. Wir generieren 
Farbdarstellungen und zeigen, wie der VIC-II den Speicher anspricht. 


uf dem Commodore 64 gibt es acht grund- 

legende Grafikmodi. In niedriger Auflö- 
sung befindet sich der Zeichensatz im RAM 
oder ROM und kann auf drei verschiedene 
Weisen angezeigt werden: Standardmodus, 
Vielfarbmodus und erweiterter Farbmodus. 
Weiterhin gibt es zwei Arten von hoher Auflö- 
sung: Standardmodus und Vielfarbmodus. Au- 
ßer den Grundarten sind weitere Variationen 
möglich: Der Bildschirm kann auf 38 Spalten 
(statt der normalen 40) gesetzt werden und 
oder auf 24 Zeilen (Standard sind 25). Die letz- 
ten beiden Darstellungsarten werden norma- 
lerweise mit dem „sanften“ horizontalen und 
vertikalen Scrollen des Bildschirms eingesetzt, 
das auf dem Commodore 64 am besten vom 
Maschinencode aus gesteuert wird. 

Wenn ein langes Programm mit hochauflö- 
sender Grafik arbeitet, wird leicht der Spei- 
cherplatz knapp. Der Bildschirmspeicher für 
niedrige und hohe Auflösung läßt sich jedoch 
an fast jede Position des Arbeitsspeichers ver- 
legen. Wir sehen uns daher zunächst an, wie 
eine Verlegung durchgeführt wird. Wenn Ihr 
Programm ausschließlich Maschinencode ent- 
hält, können Sie den Bildschirmspeicher für 
hohe Auflösung sogar „hinter“ das ROM des 
BASIC-Interpreters legen und so die acht 
KByte des Interpreter-ROMs besser einsetzen. 
Interessanterweise benötigt die hochauflö- 
sende Grafik gerade acht KByte des vorhande- 
nen Speicherplatzes. 


Auf Empfang 


Der 6555/67 Video-Interface-Chip (VIC-II) hat 
die Aufgabe, Bildschirmdaten zu erzeugen, die 
dann an den Fernseher oder Monitor weiterge- 
leitet werden. Der VIC-II muß dazu Daten aus 
dem RAM oder ROM lesen. Um das recht kom- 
plizierte Verhalten des C64 besser verstehen 
zu können, untersuchen wir zunächst, wie der 
VIC-I Daten erhält. 

Im Vielfarbmodus kann ein Zeichenfeld vier 
statt zwei Farben haben. Damit das möglich ist, 
besteht die horizontale Auflösung hier nicht 
mehr aus einzelnen Pixeln, sondern aus Pixel- 
paaren. Der Vielfarbmodus läßt sich im hohen 
oder niedrigen Grafikmodus einsetzen, wenn 
auch die Pixelfarben bei der hohen Auflösung 
auf andere Weise bestimmt werden. Die fol- 
genden BASIC-POKEs schalten den Vielfarb- 
modus an und ab: 


POKE 53270,PEEK(53270)OR16 

POKE 53270,PEEK(53270)AND239 
Wenn bei niedriger Auflösung und Vielfarb- 
modus das Bit 4 des entsprechenden Farbnyb- 
bles (ein Nybble ist ein Halbbyte oder vier 
Bits) auf Eins steht, wird das Zeichen im Viel- 
farbmodus interpretiert, wobei die niederwerti- 
gen drei Bits die Farbe festlegen. Zeichen mit 
Farbnybbles im Bereich von Obis 7 werden da- 
her normal interpretiert, Zeichen mit Farbcode 
zwischen 8 und 15 hingegen im Vielfarbmo- 
dus. Tabelle 1 zeigt, wie die Farben der Pixel- 
paare a werden. 


Erweiterter Farbmodus 


Durch Austauschen der Adressen 53282 und 
53282 können Sie im Handumdrehen die Farbe 
jedes Pixelpaares wechseln. Der Vielfarbmo- 
dus eignet sich besonders für anwenderdefi- 
nierte Zeichen, da hier beim Bitmuster die Pi- 
xelpaare berücksichtigt wurden. 

Der „erweiterte Farbmodus" bietet zusätz- 
liche Darstellungsmöglichkeiten. Diese Farb- 
art steuert die Hintergrundfarbe der ersten 64 
Zeichen der Zeichenmatrix. Der erweiterte 
Farbmodus läßt sich jedoch nicht zusammen 
mit dem Vielfarbmodus einsetzen. Je eine BA- 
SIC-Zeile schaltet den erweiterten Farbmodus 
an bzw. ab: 

POKE 53265,PEEK(53265)OR64 

POKE 53265,PEEK(53265)AND191 
Auf dem Bildschirm kann nun das gleiche Zei- 
chen in vier verschiedenen Hintergrundfarben 
erscheinen (eine davon ist die des Bild- 
schirms). Die verbleibenden Zeichen lassen 


Tabelle 1 


Bitmuster des |Farbe Fostgelegt duch Hi 
Pixelpaares \ 
$D022) Bi 


Bildschirmhintergrund 
Vielfarbmodus #1 
Vielfarbmodus #2 
Vordergrundfarbe 


Tabelle 2 


128-191 
192-255 


sich im erweiterten Farbmodus nicht darstel- 
len, da Bit 6 und 7 des Bildschirmcodes für die 
indirekte Steuerung der Zeichenfarbe ge- 
braucht wird. So ist 1 beispielsweise der Bild- 
schirmcode für „A" und 65 der für „A" in Nega- 
tivdarstellung. Wenn Sie jedoch 65 in den Bild- 
schirmspeicher POKEn, sehen Sie kein inver- 
ses „A", sondern ein normales „A“, dessen Hin- 
tergrundfarbe der Inhalt der Adresse 53282 
($D022) bestimmt. Auf die gleiche Weise er- 
0 zeugtein POKE 129in den Bildschirmspeicher 
0 ein normales „A“, jedoch mit der Hintergrund- 
- farbe, die die Adresse 53283 ($D023) angibt. 
0 Tabelle 2 zeigt die Beziehung zwischen Bild- 
0 

0 

0 


001 0 


schirmcodes und Farbregistern. 

Der VIC-II Chip arbeitet mit einem einfa- 
chen Speicherschema. Er kann jeweils nur 
einen von vier Blöcken zu je 16 KByte — Bank 
genannt — „sehen“. Stellen Sie sich diese 
Banks am besten als Fenster des VIC;II zum 
Arbeitsspeicher vor. Die Basisadresse des 
Fensters ist softwaregesteuert und kann einen 
von vier Werten annehmen. 


1000 REM**BANK FUER DAS VIC FENSTER 
WAEHLEN** 

1010 POKE 56578,PEEK(56578)OR3:REM 
DDR 
CIA#2 BITS 0,1 ZUR AUSGABE 

1020 WD=3:REN WAEHLT NORMALES 
FENSTER 

1030 POKE 56576, (PEEK(56576)AND252)OR 
WD: 


REM PORT A CIA#1 BITS 0,1 
WD kann Werte von Obis 3annehmen. Der ak- 


tuelle Wert von WD läßt sich jederzeit mit 
PEEK(56576)ANDS3 abfragen. Die Adresse der 
Untergrenze des Speicherfensters wird mit der 
Formel WB=16384*(3-WD) errechnet, wobei 
WD die entsprechenden Adressen liefert: 


soos-5-_- 
oooc-0o0--_— 
Se 


1 
1 
1 
1 
1 
1 
0 


„A“ im Vielfarbmodus 
00 01 10 


Sao 
oooooooo 


11 

01 
11 

01 
01 
01 
00 
Farbschlüssel 


01 Vielfarbmodus 1 


10 Vielfarbmodus 2 


[0 11 Vordergrund- 


farbe 


Fenster Startadresse 


00 Hintergrund- 
farbe 


Im normalen Anzeige- 
modus des C 64 wird 
jedes Bit eines Zei- 
chens, das auf Eins 
steht, in Vordergrund- 
farbe dargestellt und 
jedes Bit, das auf Null 
steht, in Hintergrund- 
farbe. Beim Vielfarbmo- 
dus werden die Bitmu- 
ster jedoch als Bitpaare 
interpretiert. Die vier 
möglichen Kombinatio- 
nen eines Bitpaares 
stellen außer den Far- 
ben des Vorder- und 
Hintergrundes noch 
zwei zusätzliche Farben 
dar. 


Im Inneren des VIC-I Fensters erwariet der 
6510 den Bildschirmspeicher und ein Abbild 
des Zeichen-ROMs in niedriger Auflösung 
(oder in hoher, wenn dieser Grafikmodus an- 
geschaltet ist). Die CPU findet dort auch ihre 
Sprite-Daten. Die Pointer auf die acht Sprites 
sind am Ende des Bildschirmspeichers unter- 
gebracht und müssen bei einer Verlegung 
ebenfalls verschoben werden. 

Die vier höherwertigen Bits des VIC-I Steu- 
erregisters bei der Adresse 53272 ($DO18) ge- 
ben an, welches Offset auf die Basis des aktu- 
ellen VIC-I Fensters den Anfang des Bild- 
schirmspeichers angibt. Mit diesen vier Bits 
kann der Bildschirmspeicher in jeden der 16K- 
Fensterblöcke gelegt werden. 


1868 


1040 REM**OFFSET DES BILDSCHIRMS VON 
DER BASIS DES FENSTERS 
WAEHLEN** 

1050 SO=1:REM LEGT NORMALES OFFSET 
FEST 

1060 POKE 53272,(PEEK(53272)AND15) 


OR16*SO 
SO kann hier Werte von O bis 15 annehmen. 


Der aktuelle Wert von SO kann jederzeit mit 
PEEK(53272)AND]15 festgestellt werden. Die 
entsprechende Basisadresse des aktuellen 
Bildschirmspeichers wird entweder mit 
SC=WB-+1024*SO (Fensterbasis plus Offset) 
errechnet oder mit: 
SC=16384*(3-(PEEK(56576)AND3))+64*(PEEK 
53272)AND240) 
Da das Farb-RAM sich bei der Verlegung des 
Bildschirmspeichers nicht mitbewegt, gibt es 
eine Schwierigkeit. Für einen kompletten zwei- 
ten Bildschirmspeicher brauchen Sie eine 
kurze Maschinencoderoutine, die den Farb- 
speicher in und aus einem Buffer bewegt. 


Zeigereinstellung 


Wenn Sie den neuen Bildschirm mit PRINT an- 
sprechen wollen, müssen Sie weiterhin dem 
Betriebssystem mitteilen, wo sich der neue 
Bildschirmspeicher befindet. Dies kann mit 
einem POKE (oder STA) auf Adresse 648 
($0288) geschehen, da dort der Pointer auf das 
höherwertige Byte der Bildschirmspeicher-Ba- 
sisadresse zeigt. Wenn SC wie beschrieben 
berechnet wurde, führt 
POKE 648,INT(SC/256) 
diese Aufgabe aus. Die Basisadresse der Zei- 
chenmatrix oder des hochauflösenden Bild- 
schirmes wird folgendermaßen festgelegt: 
1070 REM** HOCHAUFLOESENDES/CM 
OFFSET FUER DIE FENSTERBASIS 
WAEHLEN** 
1080 HO=4:REM NORMALES OFFSET 
FESTLEGEN 
1090 POKE 53272,(PEEK(53272)AND240)OR 


* 


(6) 
Prinzipiell kann HO jeden Wert von O bis 7 an- 
nehmen; in der Praxis sind die Möglichkeiten 
jedoch eingeschränkt. Wenn WD 1 oder 3 ent- 
spricht, darf HO nicht die Werte 2 oder 3 an- 
nehmen, da der VIC-II dort das normale ROM- 
Zeichenabbild erwartet. Zu hohe Werte von HO 
verlegen die Obergrenze des hochauflösen- 
den Speichers außerhalb des Bereichs, den 
der VIC-II ansprechen kann. Die entspre- 
chende Basisadresse der aktuellen Zeichen- 
matrix (bzw. des hochauflösenden Bildschirm- 
speichers) wird entweder mit 
CM=WB-+2048*HO (Fensterbasis plus Offset) 
errechnet, oder mit 
CM=16384*(3-(PEEK(56576)AND3))+1024* 
PEEK(53272)AND14) 

Durch Setzen dieser Register lassen sich die 
Bildschirmspeicher in Bereiche verlegen, die 
sich für Ihr Programm am besten eignen. 


Go total 


Wir setzen unser Go-Programmprojekt mit Listings der E/A-Routinen 
für den Commodore 64, Sinclair Spectrum und Schneider CPC 464/664 
fort. Das Spielbrett wird generiert, und Unterroutinen ermöglichen die 


Ausgabe von Mitteilungen. 


Ss: möglich entsprechen die hier ge- 
zeigten Listings für den Commodore 64, 
Sinclair Spectrum und Schneider CPC 464/664 
dem bereits für den Acorn B vorgestellten Pro- 
gramm. Daher haben auch viele der im letzten 
Artikel gegebenen Erklärungen Gültigkeit. 
Um die Sache einfach zu halten, wurden in 
allen Programmversionen dieselben Zeilen- 
nummern verwendet. Nur bei größeren Unter- 
schieden der maschinenspezifischen Verar- 
beitung und bei Abweichungen im BASIC wur- 


den die Original-Algorithmen verändert. Der 
Hauptunterschied zwischen der Acorn-B- 
Version und den hier gezeigten Versionen, ein- 
mal abgesehen von der differierenden Bild- 
schirmdarstellung der Systeme, besteht darin, 
daß die hier behandelten Rechner keine Pro- 
zeduren und Mehrfachfunktionen ermög- 
lichen. Daher mußten die fehlenden Möglich- 
keiten durch Unterroutinen simuliert werden. 
Das sieht zwar etwas umständlich aus, funktio- 
niert aber letztlich genausoqut. 


Seki 


Wer schließt wen ein? 
Die weiße Gruppe ist 
vollständig von größe- 
ren schwarzen Gruppen 
eingeschlossen und hat 
nur noch zwei Freifel- 
der. Trotzdem schließt 
diese Gruppe eine klei- 
nere schwarze Gruppe 


10 
(PE 
15 
20 
30 
R]L[ 
OWN 


mit drei Steinen ein. 


PLE 
40 


Fataler Fehler 

Setzt Schwarz in der 
Absicht, die weiße 
Gruppe zu erobern, auf 
eines der zwei verblei- 
benden weißen Freifel- 
der, kann Weiß auf das 


50 
60 
70 
80 
90 
100 
110 
15,5 
120 
130 
170 
190 
200 
220 


letzte Freifeld setzen 
und die schwarze 


2uLo 
250 


Gruppe so vom Spiel- 
brett entfernen. 


260 
270 


Sicherheit 

Jetzt kann sich die 
weiße Gruppe dadurch 
absichern, daß sie zwei 
Augen bildet. Schwarz 
hätte die beiden ur- 
sprünglich geteilten 
Freifelder unbesetzt 
lassen sollen — eine Si- 


280 
290 
300 
310 
350 
390 
4120 
430 
uuo 
450 
460 
470 
480 
u90 
500 
510 


tuation, die bei Go als 
„Seki“ bezeichnet wird. 


" 


520 


530 
a: 


Modul Eins: 


Commodore 64 


POKE 56578, PEEK(56578B)OR3: POKE 56576, 
EK (56576) AND252)ORI 

POKE648,132: POKE 52,128:POKE 56,128 
DIM SK%(300) 

POKE 53280,0:POKE 53281,0: PRINT" [CLEA 
DOWN] [DOWN] [DOWN] [DOWN] [DOWN] [DOWN] [D 
] [DOWN ]) [DOWN] [DOWN] [WHITE] 
ASE WAIT":GOSUB 170 
GOSUB 1270 

PRINT"[CLEAR]":GOSUB 1730 
MOVEX=MOVEX+1: REM WHITE MOVES HERE 

IF FIN% GOTO 100 
MOVEX=MOVEX+1: REM BLACK MOVES HERE 

IF NOT FIN% GOTO 60 
IP%=22: IM%=9: IW%=1:GOSUB 1990 

IF A$="Y" GOTO 40 

IF A$<>"N" GOTO 100 
MP%=24:MM%=5:0$="":GOSUB 2160 
GOTO130 

REM INITIALISE ROUTINE 
BLACK%=1:WHITEX=2: COLOURX=3 
MARKER%=4: LIBERTY%=8 

BOARD=49152 

DIM CAPTURE%(2) 

AXIS$="[c 3]JABCDEFGHIJIKLMNO" 

DIM DIR%(4) 

FOR L=1 TO 4 

READ DIR%(L) 

NEXT 

DATA 16,1,-16, -1 

GOSUB 390 

RETURN 

REM READ-MESSAGES ROUTINE 

DIM MESS$(9) 

FOR M=0 TO 9 

READ MESS$(M) 

NEXT 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


"0.K. THINKING..." 

"ILLEGAL ENTRY: " 

"STONE ALREADY ON POINT: " 
"ILLEGAL. KO ON POINT: " 
"ILLEGAL SUICIDE ON POINT: " 
"O.K. GAME OVER. PRESS RUN/STOP 
DATA "" 
DATA '' HOW MANY HANDICAP STONES MAY 
HAVE (2-9) ?" 
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DATA "TYPE YOUR MOVE (EG. H8), PASS 
QUIT--ı" 
DATA: "DO YOU WANT TO PLAY AGAIN (Y/N 


RETURN 

REM INTRODUCTION ROUTINE 

GOSUB 1340 

GOSUB 1450 

REM GAME-INIT ROUTINE 

STACKX=1 

Al$=" ",A2$=" 

LOCATX=0:MOVEX=1 

FIN%=O 

CAPTURE%(1)=0:CAPTUREX(2)=0 

RETURN 

REM TITLE-SCREEN ROUTINE 

POKE 53280,0:POKE 53281,0 

PRINT" [CLEAR] [DOWN] [DOWN] [DOWN] [Dow 

le 3J[RVSON] [ce V)[e I][e 

C]LRVSOFF] [RVSON][e V][le IJle c]I* 
ı480 PRINT" [RVSON] [RVSOFF 
Ile DJle I] L[RVSON] [RVSOFF] [RVSON] " 
1490 PRINT" [RVSON) [RVSOFF 
] [RVSON] [RVSOFF] I[RVSON] [RVSOFF] [RV 
son] " 
1500 PRINT" [e C]JERVSON][e 
I]J[RVSOFF)[e V) le CJI[RVSON][c IJ[RVSOF 
Flle v]" 
1510 PRINT"[DOWN] [DOWN] [CYAN]BY 
MARCUS JEFFERY" 
1520 PRINT"[DOWN][PURPLE]YOU WILL PLAY T 
HE [WHITE)WHITE [PURPLEJSTONES, AND" 
1530 PRINT"THE COMPUTER (BEING WEAKER! 
) WILL" 
1540 PRINT"HAVE THE [c 3]RED [PURPLE]JSTO 
NES WITH A HANDICAP" 


1800 PRINT TAB(12);"[DOWN]"; AXIS$ 

1810 FOR Y=15 TO ı STEP -1 

1820 PRINT TAB(9);"[c 3])";RIGHT$(" "+STR 
BIN). 

1830 FOR X=1 TO 15 

1840 PP%=PEEK(BOARD+16*Y+X) 

1850 IF PP%=1 THEN PRINT"[ce 3][s Q)";:Go 
TO 1880 

1860 IF PP%=2 THEN PRINT"[WHITE][s Q]":: 
GOTO 1880 

1870 PRINT"[c 6])[s +]"; 

1880 NEXT 

1890 PRINT"[c 3] "z;ZRIGHT$(" "+STR$(Y),2) 
1900 NEXT 

1910 PRINT TAB(12);AXIS$ 

1920 PRINT"[DOWN) [YELLOW] LAST MOVE: "; 
1930 ITCP%=LOCAT%:GOSUB 2260: PRINT TAB(2 
[BEINE 

1940 PRINT TAB(18);"[DOWN][CYAN]";A2$ 
1950 RETURN 

1990 REM INPUT ROUTINE 

2000 IS%=0 

2010 POKE 780,0: POKE 781,IP%+1:POKE 782, 
39:SyYS 65520 

2015 FOR II=1 TO 79:PRINT CHR$(20);:NEXT 
2020 A$="" 

2030 PRINT"[WHITE] ";MESS$(IMX);" "; 
2060 GET I$: IF I$="" GOTO 2060 

2065 IF ASC(I$)=13 GOTO 2120 

2070 IF ASC(I$)<>20 GOTO 2100 

2080 IF IS%>O THEN IS%=ISX-1:A$=LEFT$(A$ 
‚„IS%): PRINT I$;:GOTO 2060 

2085 GOTO 2060 

2100 IF IS%X<IW% THEN IS%=IS%+1:A$=A$+I$: 
PRINT"[CYAN]";I$; 

2110 GOTO 2060 


1550 PRINT" 


ADVANTAGE." 2120 RETURN 


1560 IP%=20: IM%=7:IW%=1:GOSUB 1990 2160 REM MESSAGE ROUTINE 

1565 HND%X=VAL(A$) 2190 POKE 780,0: POKE 781,MP%: POKE 782,39 
1570 IF HND%<2 OR HND%>9 GOTO 1560 ıSYS 65520 

1590 RETURN 2195 FOR ML=1 TO 39: PRINT CHR$(20);: NEXT 
1730 REM PRINT-BOARD ROUTINE 2200 PRINT" [RVSON] [c 3)"; MESS$ (MM%X); 
1750 PRINT"[HOME] [YELLOW] STONES CA O$;"[RVSOFF]";z 

PTURED BY:"; 2220 RETURN 

1760 PRINT"[WHITE] MOVE" 2260 REM INT-TO-CHAR ROUTINE 

1770 PRINT"[YELLOW] WHITE =[CYAN] ";cC 2270 IF ITCPX=0 THEN PRINT"[CYANJHANDICA 
APTUREX(2); P"; : RETURN 

1780 PRINT TAB(18);"[YELLOW]BLACK =[CYAN 2275 C$=CHR$(ITCPX-16*INT(ITCPX/16)+64) + 
]) ":CAPTUREX(1); MID$(STR$(INT(ITCPX/16)),2) 

1790 PRINT TAB(31); "[WHITE]'";MOVEX 2280 PRINT"[CYAN]";C$;" "RETURN 


Schneider CPC 464/ 664 


MEMORY &FFFF 340 DATA 16,1,-16,-1 1350 ataril$=" "satari2se" u 
DIM s(i300>:FEM stack 350 RETURN 1370 locat ion%=0 ımvei=i1 
GOSUB 170:REM init 370 REM read message rautine 1380 cover/=0 
GOSUB 1270:REM introduction 410 RESTORE 40 1390 capture%(1)=0:capturefi2)=0 
CLS:GOSUB 1730:REM print board 420 DIM mess$(9) 1410 RETURN 
myei=mveliti REM white moves here 430 FOR m%4=0 TO 9 1450 REM title screen routine 
2 4 } 440 READ mess$(m/) 1480 CLS 
ERUG AHLEN black move Hera... ABO.NEXT mi 1462 FÜR c=1 TO 20 STEP 3 
so IF MOT over“ THEN 60 460 DATA "0.K. THINKING..." 1485 RESTORE 1474 
100 ip%=23: im%=9:iw%=1:G0SUB 1990 470 DATA "Illegal entry: " 1470 MOVE 260+c ,320+c 


ART: " i r; i= Y 
{10 IF a$="Y" THEN 40 480 DATA "Stone already on point 1472 FOR i=1 TO S:READ x,» :DRAWR 


n 3:NEXT i 
115 IF a$<>"N" THEN 100 ; ä A N ar 
120 mp%=25 ımm%=5:0$8="":60SUB 216 470 DATA "Illegal. Ko an point: 14?4 DATA -10,10,-50,0,-10,-10,0 


D ER ‚-80,10,-10,50,0,10,10,0,20 

an le Illegal. Suicide on 1476 MOVER -10.0:DRAWR 20 ,0 
5 > 

EN Tu en 
190 black%=1 :white4=2:colours=3 520 DATA "" © a A, 
195 INK 1,26:REM white 530 DATA "How many handicap ston x,yaNEXT i : 
197 INK 2,24:REM yellow nat hauslczloy ne 1482 DATA -10,10,-50,0,-10,-10,0 
200 marker%=4:1ibertyY%=8 540 DATA "Type your move (ea. H& ‚-80,10.-10,50,0,10,10,0,80 
220 boar d=&A000 > PASS or QUIT. :" 1484 NEXT c 
240 DIM capture“(2) 550 DATA "Do yau want to play ag  1!300 LOCATE 12,13:PEN 3:PRINT 
250 axisse="ABCDEFGHI.JK ain £Y/NI?" Kae ee Z:PRINT "Yo 
LMN oO" 560 RETURN uswiiiiaplar che na . 
260 GOSUB 390:REM read messages 1270 REM introduction routine 1520 ren 1 :PRINT"white tsPEN 2: 
270 DIM dir%(4) 1280 GÜSUB 1340:REM game init PRINT"stones, and 
200 RESTÜRE 340 1290 GOSUB 1450:REM title screen 1330 PRINT"and the computer (bei 
310 FOR 1%=1 TO 4 1300 RETURN ng weaker) will 


ve PERR f 1540 PRINT"have the ";:PEN 3: FRI 
320 a s 
22 nr vr er En PRINT IRNNe NT"red ";:PEN 2:PRINT"stones wit 
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ha handicap" 
1550 PRINT TAB{13)" advantage" 
1550 ip%=22: imi=7: iw4=1:GOSUB 17 
P0:REM input 

1565 hand“=ASCc(a#t)-48 

1570 IF hand“<2 OR hand“? THEN 
1560 

1570 RETURN 

1730 REM print board routine 
1735 INK 0,4:BORDER F:REM magent 
a/green 

1750 LOCATE 3,1:PEN Z:PRINT" Sto 
nes captured by:";TAB(32) "Move" 
1770 PRINT TAB{3) "White =";:PEN 
3:PRINT capture“%(2); 

1780 PEN 2:PRINT" Black =";:PE 
N 3:PRINT capture%(1); 

1770 FRINT TABC33>mvei 

1800 PRINT :PRINT TAB(SIaxiss 
1810 FOR y7=15 TO 1 STEP -1 


1820 LOCATE 2,20-y%:PRINT RIGHT$ 
C" MHSTRECYAI 2; 

1830 FOR x%=1 TO 15 

1835 PRINT" "; 

1840 p%=PEEK(board+ 1&*yY+x%) 


1850 IF p%=1 THEN FEN 3:PRINT"O" 
::G0T0 1880 

i8%0 IF p%=2 THEN FEN 1:PRINT"O" 
::G60T0 1880 

1870 PEN 2:FPRINT"+"} 

1880 NEXT x% 

1870 FEN 3:FRINT TAB(343Y%% 

1P00 NEXT y% 

ı1F10 FRINT TAB(Daxist 

1720 FEN 2:PRINT TABi3)"My last 
mave wası"3 

1930 itcp%=location%:GOSUB 2260: 
FEN 1:PRINT TAB(30} atarii$® 


1740 LOCATE 16,23:PRINT atari2$ 
1750 RETURN 

1770 REM input routine 

z000 jer=0 

2010 LOCATE 3,ip%:PRINT SPACEt (62) 
2020 as="" 

2030 LOCATE 3,ip%:FEN 3:FRINT me 
sel im) 

2080 it="":WHILE i#="":i$=1INKEYE 
WEND 

Z065 IF i$=CHR#(13) THEN 2120 
2070 IF i$<>CHR$(127) THEN 20F0 


Sinclair Spectrum 


10 CLEAR 63999 
20 DIM 8(300) 


30 PRINT AT 10,10; "PLEASE WAIT 
GO SUB 170 
40 GO SUB 1270 
50 CLS GO SUB 1730 
60 LET move=move+1: 
moves here 
70 IF end THEN GO TO 100 
80 LET move=move+1: REM black 
moves here 
90 IF NOT end THEN GO TO 60 
100 LET ip=20: LET im=10: LET i 
w=1: GO SUB 1990 
110 IF a$="yY" THEN GO TO 40 
115 IF a$<>"N" THEN GO TO 100 
120 LET mp=21: LET mm=6: LET o$ 
="": GO SUB 2160 
130 STOP 
170 REM initisalise routine 
190 LET black=1: LET white=2: L 
ET colour=3 
200 LET marker=4: LET liberty=8 
220 LET board=64000 
240 DIM c(2) 
260 GO SUB. 390 
290 DIM d(4) 
300 RESTORE 340 
310 FOR 1=1 TO 4 
320 READ d(1) 
330 NEXT 1 
340 DATA 16,1,-16,-1 
350 RETURN 
390 REM read-messages routine 
410 RESTORE 460 
420 DIM m$(10,43) 
430 FOR m=1 TO 10 
AUO READ m$(m) 
450 NEXT m 
460 DATA "O.K. THINKING..." 
470 DATA "Illegal entry: " 
480 DATA "Stone already on poin 
t: " 
490 DATA "Illegal. 
500 DATA "Illegal. 
oint: " 
510 DATA " 
520 DATA "" 
530 DATA "How many handicap sto 
nes may I have (2-9) ?" 
540 DATA "Type your move (eg. H 
8), PASS or QUIT :" 
550 DATA "Do you want to play a 
gain ITZN) ?* 


REM white 


Ko on point: " 


Suicide on p 


O.K. GAME OVER." 


560 RETURN 

1260: 

1270 REM introduction routine 

1280 GO SUB 1340 

1290 GO SUB 1450 

1300 RETURN 

1340 REM game-init routine 

1345 LET stack=1 

1360 LET x$=" ": LET y$=" 
" 

LET location=0: 

1380 LET end=0 

1390 LET c(1)=0: 

1410 RETURN 

1450 REM title-screen routine 

1460 BORDER O0: PAPER O0: CLS 

1470 INK 2: PRINT AT 3,12:"sh23s 

hl sh23sh1" 

ı480 PRINT AT 4,12;"sh8lsn3 
sh8" 

1490 PRINT AT 
sh8" 

1500 PRINT AT 6,12;"132 

1510 PRINT AT 8,7; 

rcus Jeffery" 

1520 PRINT 

ill play the "; 

NK 3;" stones," 

1530 PRINT INK 3;"and the compu 

ter (being weaker)" 

1540 PRINT INK 3;:'"will have the 
"; INK 2;" red "; INK 3;"stone 

s with" 

1550 PRINT INK 3;" 

ap advantage." 

1560 LET ip=15: 

=1: GO SUB 1990 

1565 LET hand=CODE (a$)-Uu8 

1570 IF hand<2 OR hand>9 THEN G 

oO TO 1560 

1590 RETURN 

1730 REM print-board routine 

1750 PRINT AT 0,0; INK 6;" Stone 

s captured by:"; 

1760 PRINT INK 7;" Move " 

1770 PRINT INK 6;'" White="; INK 
Sretl2); 

1780 PRINT TAB 10; 

k ="; INK 5;c(1); 

ı790 PRINT TAB 27: INK 7;move 

1810 FOR y=15 TO 1 STEP -1 

ı820 PRINT AT 17-y,5; INK 2; (" “ 

+STR$ y)(LEN STR$ y TO );" "; 

1830 FOR x=1 TO 15 


1370 LET move=1 


LET ce(2)=0 


sh8 


5,12;"sh8 sh8 


sh8 


132" 
INK 5;'"by Ma 


PRINT INK 3;"You w 
INK 7:"white"; I 


a handic 


LET im=8: LET iw 


INK 6:" Blac 


2080 IF is“>0 THEN isk=ist-1:a$= 

LEFTEL SR, I SR PRINT CHRS$CB) ; ,; 

CHR&(82; 

2085 50T0 2050 

zur IF itr="a" AND 
i$=EHR$LASCE ı #7 -325 

z100 IF ie#kiuf THEN | 

$=a$+i$:PEN Z2:FRIMT i®; 

z110 6070 2080 

2120 -RETURN 

Zi&0 REM message routine 

2170 LOCATE 3,mp%:PRINT SPACES(S3 

& 

Zz00 LÜCATE S,mp#:FEN Z:FRINT me. 

sssimmiui ot 

ZZZ20 RETURN 

2260 REM int-to-char routine 

2270 IF itcp%=ü THEN FEN 1:PRINT 

"Handicap"; :RETURN 

2275 c$=CHR&C I top -16%#INTC I tcp%, 7 

15?+654) ır$=MIDSESTRECINTC 1 te 71 

2,22 

2250 PEN 1:FRINT c#ir#; :RETURN 


it$<="z" THEN 


iesHitlıa 


1840 LET pp=PEEK (board+16*y+x) 
1850 IF pp=1 THEN PRINT PAPER 
u; INK 2;"0";: GO TO 1880 
1860 IF pp=2 THEN PRINT 
u; INK 7:"0";: GO TO 1880 
1870 PRINT PAPER U; INK 0; "+"; 
1880 NEXT x 
1890 PRINT 
1900 NEXT y 
1910 PRINT TAB 8; 
HIJKLMNO" 

1920 PRINT INK 6;'"Last move: "; 
1930 LET itcp=location: GO SUB 2 
260: PRINT TAB 20; INK 5;x$ 

1940 PRINT AT 20,20; INK 5;y$: B 
EEP 1,0 

1950 RETURN 

1990 REM input routine 

2000 LET is=0 

2010 PRINT AT 1P,0;: 
62: «PRINT " "3 
2020 LET a$="" 
2030 PRINT AT 1i1p,0: 


PAPER 


INK 2;" ";y 


INK 2; "ABCDEFG 


FOR i1=1 TO 
NEXT i 


INK 7:;m$(im) 


2060 LET i$=INKEY$: IF 1$="" THE 

N GO TO 2060 

2065 IF CODE 1%=13 THEN 

120 

2070 IF CODE 1$%<>12 THEN 

2090 

2080 IF 1s>O THEN LET is=18-1: 
LET a$=a$(1 TO LEN a$-1): PRINT 

CHR$ 8;" ";CHR$ 8;: GO TO 2060 

2085 GO TO 2060 

2090 IF i$>="a'" AND 1$<="z" THEN 
LET 1$=CHR$ (CODE i$-32) 

2100 IF is<iw THEN LET is=1s+1l: 
LET a$=a$+1$: PRINT INK 5;1$; 

2110 GO TO 2060 

2120 RETURN 

2160 REM message routine 

2190 PRINT AT mp.0;: FOR m=1 TO 
30: PRINT " ";: NEXT m 

2200 PRINT AT mp,O; INK 2;m$(mm, 
TO 26);50$%; 

2220 RETURN 

2260 REM int-to-char routine 

2270 IF itcp=O THEN PRINT 
5;"Handicap";: RETURN 

2275 LET c$=CHR$ (itcp-16*INT (1 

tep/16)+64): LET r$=STR$ (INT (i 
tcp/16)) 

2280 PRINT 


Go TO 2 


GO TO 


INK 


INK 5;c$;r$;: RETURN 


Von Baum zu Baum 


Wir erweitern unser Programm um einige Sortierroutinen, die Bäume 
der unterschiedlichsten Strukturen handhaben können. 


äume mit unregelmäßigen internen Struk- 

turen — die beispielsweise bei einem Da- 
tenpunkt drei Verzweigungen aufweisen, bei 
einem anderen zwei, bei einem dritten vier, 
etc. — sind problematisch. Die wesentliche 
Schwierigkeit liegt in der Prüfung, ob der End- 
punkt einer Verzweigung erreicht wurde oder 
nicht. Bei unserem Baum zur Objektsteuerung 
konnten wir die Datenpunkte wegen seiner in- 
ternen Struktur in verschiedene Kategorien un- 
terteilen: zuerst die Verzweigungspunkte, 
dann die Schnittpunkte, die aus dem Baum 
oder in ihn hinein führen, danach die End- 
punkte, die spezielle Abläufe oder Meldungen 
veranlassen, und schließlich die Endpunkte, 
die nur einen Rücksprung auslösten. Beim 
Durchgang durch den Baum (Zeilen 5030 bis 
5090) konnten wir einfach auf die Routine mit 
der Kategorienummer des Datenpunktes ver- 
zweigen. 

Leider läßt sich diese Methode bei einigen 
der gezeigten Bäume nicht anwenden. 

Wir brauchen ein sicheres Sortiersystem, 
das auf jeden Baum anwendbar ist — unabhän- 
gig von seiner inneren Struktur. 

Hier die Lösung: Wir müssen zunächst die 
Variablen des Spielablaufs initialisieren, die 
bisher noch nicht verwandt wurden. Tauschen 
Sie dazu Zeile 190 aus gegen: 


198 DIM t(5,25,4) ,K(3,38) ‚c(25) ,s(&) ,h(6 
): z=8 


Die Zeile erweitert das Array t, um die neuen 


Bäume bearbeiten zu können, und gibt Array c 
mehr Platz für neue Testbedingungen. Die Ar- 


Chancenberechnung 


von t(Baumnummer, Elementnummer, 1-4) 


Verzweigungspunkt : .g S 


GOSUB-Punkt (Baumstruktur verlassen 
und danach wieder zurück) 


Handlungspunkt (Endpunkt, der eine 
Routine aktiviert) 


Meldungspunkt (Endpunkt, gibt 
Meldung aus) 


Endpunkt (Baum verlassen, keine 
Handlung) 


Zufallspunkt (generiert Zufalls-Offset und | 8 
addiert ihn zum Basispunkt) 


Mehrfachverzweigung (Bedingungswert 
zum Basispunkt addieren) 
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rays s und h zeigen an, ob eine Spielfigur das 
Opfer gesehen und die leere Konserven- 
büchse gefunden hat. Die Variable z vermerkt, 
ob es bereits ein Opfer gibt. (Im Verlauf des 
Spiels wird z auf die Figurnummer des Opfers 
gesetzt.) 

Der Baum wird programmiert: In den vier 
Elementen der untersten Dimension des t-Ar- 
rays werden die Informationen der Datentypta- 
belle über die einzelnen Datenpunkte gespei- 
chert. Dadurch läßt sich bei der Sortierung des 
Baumes leicht der Datentyp jedes Elementes 
feststellen und zu der entsprechenden Routine 
verzweigen. Zuerst sollten die Daten aus Li- 
sting l eingegeben und mit folgenden Zeilen 
in das Array t übertragen werden: 


236 REM plot tree 
24 FOR n=1 TO 22: FOR ==1 TC 4: READ 
2,n,s): NEXT s: READ a$: NEXT n 


t« 


Beachten Sie, daß die Leerzeichen in den Zei- 
len 6270 und 6280 nur eingefügt wurden, um 
die Datengruppen besser kenntlich zu ma- 
chen. Sie werden in Zeile 240 in die temporäre 
Variable a$ eingelesen. 

Das „Sortiermodul“ des Baums (Zeilen 5400 
bis 5550 — Listing 2) steuert die entsprechen- 
den Routinen an. Der Ablauf ist einfach: Zeile 
5470 stellt den Typ des Datenpunktes fest und 
addiert Eins dazu. Über die Ergebniszahl (zwi- 
schen 1 und 7) wird dann auf eine der angege- 
benen Zeilen verzweigt. Ein einfacher Ver- 
zweigungspunkt mit nur zwei Alternativen (Typ 
0) führt zu Zeile 5480, wo mit dem Wert der in 
t(2,Datenelementnummer,2) gespeicherten 
Bedingung entschieden wird, ob eine Verzwei- 
gung zu t(2,Datenelementnummer,3) oder 
t(2,Datenelementnummer,4) erfolgen soll. 

Die übrigen Datenpunkttypen haben eigene 
Programmzeilen und holen sich ihre Parameter 
aus dem Array t. 

Im Baumdiagramm des Spielablaufs sehen 
Sie, daß etliche neue Bedingungen getestet 
werden, die noch nicht in das Array c eingetra- 
gen wurden. Hier die Programmzeilen: 


cl 
c(1MD= 
clIEd=ABS(hic)=? 


2456 cIP=ABStz=c): cl INM=SABS(aec)!: 
P=ABS(z=B): cl 16) =ABStsec)=25I) : 
ABSCFNc(z,2)=FNc(c,299: 
IN: ct 1M=ABS(i=2) 


Nach Eingabe der Listings 3, 4 und 5 können 
Sie diesen Programmteil testen. Sie müssen 
nur die Steuerschleife wie in den folgenden 
Programmzeilen ändern: 


586 REM PORISTBIT Te 
518 REM test program locpı  Aktionsbereit 
528 REM Die Zeilen 2810 bis 2929 Listing A 


538 GCSUB 2100: GOSUB 2156: GOSUB 2240: 
PRINT: PRINT: GOSUB 1880: GOTO 538 


_beweg: gun ZU RM 
en Zei-. 282@ REM move a character. 
len 3000 bis 3110 bilden 2838 REM 
den der Ak- 2848 IF FNete,ocı THEN RETURN: REM 
tionstabelle, die die weak to move : : 
Routinen der Daten- 2856 y=h: #=8: FOR w2 70 5 ; 
punkte vom Typ über $(c,2)) ‚w="@" THEN GOTO 2218 
die Sprungtabelle in 2866 GOSUB 4186: IF 2 THEN ie 
Zeile 4510 bis 4570 auf- g80 
ruft. Die Routinen für 2878 60T 2910 
die GOSUB-Punkte be- 2989 IF FNcic,2)=r THEN PRINT Errı 
ginnen in Zeile 3900. leaves the room...";5: yal 
2898 86e,D=15WALLEsEE, 2) ws we5: IF 


Löschen Sie nun die Zeilen 540 bis 820, mit de- 
nen der Baum zur Objektbewegung getestet 
wurde, und geben Sie Listing 6 ein. Der Code 
prüft die Flags für Bearbeitung und Bewegung 
und initialisiert die Bedingungen. 


‚se Programmzeilen enthalten die Daten für die Datenpunkte, & dk aniee 
N BEE aten für die Datenp FNe(c,2)=r „THEN FRINT c$(c,1);" s 
a s the room...";: yal a 
REM a 2598 IF y=I THEN y=c: GOSUB 2256: c=y: P 


RINT: PRINT: REM update ERARBANen® prese 
, nt message 
in 6278 DATA Mu z ne2 ",s, IS er 2918 NEXT w: IF f=@ 6010 2858 
s,0, 4, 5 9,18,9,'.40, 1010,00, i 2928 RETURN ’ 

.ı Ze. ‚18, van “0, 1712, 1,2. 9,0 388R REM 

0 a 2 ",5,8,14,3," Be 361@ REM action table 

.& 1,8," aa Na 3828 REM 

he Ny2ud2,dr URL SE ra 


",4,0,6,8," R ‚a, 
h Nützliche Routinen icti 

Dieser Programmteil Listing 4 

baut auf unterer Ebene 4279 REM 

einige neue Routinen 4286 REM print his/her 

auf, die variable Zufalls-- 4298 REM 

zahlen erzeugen und 4380 IF c#(c,?)="4" THEN mö="her *: RETU in 

a Zeilen Aurchlauten den Baum, testen dabei den Typ jedes Meldungen ausgeben. pn 
N PRDEIRHIEIEN, und Ya chi entsprechend. Aalo menge m RETURN 


148 REM ii 4329 REM 
S6 REM sort trees 4336 REM variable random number rautine 
a 4348. REM 
7a CN Ctit,n,ld+1) GOTO 5480,5498 ‚5568 = i 4358 v=INTCRND(2)Xa): RETURN 
‚3938 ‚9940 ,5958 4360 REM 
I n=tXt,n,Z+k): GOTO 4378 REM print he/she 
4388 REM 
OsuB 4536 ; n=ttt,n,3: GOTC 5478 4278 IF c$(c,?)="#" THEN PRINT "she ";: 
5aa GOSUB 4570 RETURN 
6 RETURN 4488 FRINT "he ":: RETURN 
5528 GOSUB 4480: GOSUB 4430: GOSUB 4728 4508 REM 
3320 RETURN 4518 REM jumpblock 
5549 a=t(t,n,4 : GOSUB 4350: netct,n,3+ 4520 Ken 
‚v+ GOTO 5478 | 4530 REM re-entra’' :-: 
I lalaych) kzcitit, nz): er a 60T0 5 4548 ON t(t,n,4) GOSUB 3F. 
a, 4558 RETURN 


Entscheidung über 
Leben und Tod 


80, 17, 12. 13 28 18, 9,8 


Opfer 
anwesend? 


i : E 192.0.4,3 
TEE & er & ae E Et ühlt Gwen] 


ag „Opier sich a 
gesehen“ kr 
KEN z | [ein ee ba 
& ; SE ; etze Tot- i 
nn ; - r Flag — ) E 
5,0, 14, 4 er 


15 4,0,0,0 


16 4,0,0,0 


1873 


1874 


3038 FÜR n=1 TC 3: GUSUB 4896: NEXT n: m 


$=c$(c,1)+" takes another look at the ba 
dy, and suddenly realises the hidecus tr 
uth. "+CHR$(34)+"The pasty’s made of cat 
-food"+CHR$(34) +" ": GOSUB 4436 

3848 GOSUB 43980: m$=m$+"yells, and in a 


| mad rush the assembled company scramtble 


over the bar and attack Fred the Barman, 
who pleads with them ta na avail to spa 
re his miserable life.": GOSUB 4830: G05 


| UB 4726 


3858 FOR n=! TÜ 2666: NEXT n: GOSUE 4720 
"...and the next day Fred the Barma 

n is nowhere tca be seen. However, a num 

ber of oddly shaped pasties are availab 

le to feed the ever-hungry clientele of 

the Dog and Bucket...": GOSUB 4538: GOSU 

B 4728: END 

30868 h(c}=255: GOSUB 4486: m$=c#$ic, 1 +m$ 

» GOSUB 44304: GOSUB 4726: RETURN 

3078 z=c: GOSUB 4688: n$=c$(ic,1d+m$: 608 


4560 REM action nodes 

45708 GN t(t,n,9» GÜSUE 3426,3069,3076,38 
88,3188: RETURN 

4680 REM 

4&18 REM print messages if player presen 


t 

4626 REM 

4638 IF FNc(c,2)=r THEN PRINT m$; 

4&48 m$="": RETURN 

4658 REM 

4646 REM select a message from data stat 
ement 

46876 REM 

4688 RESTORE 7638: FÜR m=1 TO tit,n,9: 
READ m$: NEXT m: RETURN 

4676 REM 

4708 REM print a blank line 

4716 REM 

4728 IF FNc(c,2)=r THEN PRINT 

4736 RETURN 


Listing 5 


Meldungen 

Zeile 4680 gibt mit diesen Datenzeilen Meldungen aus. Da es auf 

Commodore-Computern kein RESTORE für bestimmte Zeilennum- 

mern gibt, müssen wir andere Techniken einsetzen. Mehr darüber 

in der nächsten Folge. 

76866 REM 

7818 REM message data 

76280 REM 

7638 DATA "A strange smell fills the air 

...could it be the odour of Catty-Kit 4 

La Carte?"," suddenly collapses on the f 

loor, clutching "," locks rather ill, an 

d warns the others not to tauch the past 
“ 

7048 DATA " examines the tin carefully, 

and assumes a thoughtfull expression." 


BASIC-Dialekte 


Die Programme laufen auf Schneider-Computern ohne jede Ände- 
rung. Varianten für andere Geräte erscheinen in der nächsten Folge 
des Computer Kurs. 


UR 4388: m$en$+mt+"stcmach, an 

ely expires. The other charac 

cc involved with their drinks to notice, 
..": GOSUB 4630: GOSUB 4720: g=eB: c#ic,d 
}="-]"; RETURN 

2088 c$lc,H="1@': geb: IF tlt,n, 3A TH 
EN GOSUR d&88: m$=c#(c, 1) +m&: GOsuB A030 
ı GOSUB 4728 . 
3678 RETLIRN 

3108 a=28: GOSUB 4358: IF w<>5 THEN RETURN 
3110 GOSUE 4680: GÜSUB 4638: GOSUB. A720: 
RETURN 
3706 REM 

3918 REM aosub table 

3728 REM , 
3930 sic)=25%: m$=c$(c,13+" Kneels deswn 
beside the prostrate body of "tc$(z,1D#+" 

. The horrible truth siaw)y dawns, but 
the others seem too drunk to pay any imm 
ediate attention...": GOSUB 4638: GOSUB. 

4728: RETURN . 


® L} 
Listing 6 
Figursteuerung 
Jede Figur wird nacheinander von der Steuerroutine angesprochen. 
Die Zeilen prüfen die Flags für Bewegung und Bearbeitungsart und 
rufen Routinen auf, die die Figur bewegen oder die Baumstruktur 
abfragen. Die REM-Zeilen wurden in disem Fall aus Den der 
Lesbarkeit eingefügt. 
1888 REM 
i@1ß REM character handler 
1828 REM 
1638 REM check to see if Key priessed u 
1848 GOSUB 4249: IF i$<)"" THEN GOSUB 28 
46: RETURN i 
1458 REM process each character int 
urn ; 
1648 FÜR c=1 TU & 
1878 REM check ‘handle flag’ 
iasa IF FNc(c,18)>4 THEN c#(c, 19) =Fim$(c 
$(c,18),12: GOTO 1598 
1a98 REM flag=# sc reset flag and pr 
ocess character 
11088 RESTORE: FÜR n=! TO cXl@+c-1: READ 
c$(c,18): NEXT n 
1116 IF FNeic,18)=8 THEN GOTO 1566: en 
default valus=h so don’t process 
120 REM check mave flacd 
1138 IF FNc@c,112>@ THEN c$(c,11d=FNm$(c 
$(€ 711944193. GOTO. KAIRO 
1148 REM move flag=@ =o reset flag a 
nd move character 
1158 RESTORE: FOR n=1 TO c*X11: READ c$(c 
Ar YoNEXTEH 
1168 IF c$(c,I1d="8" THEN GOTO 1188 
1178 GOSUB 2846: GOTO 158 
1188 REM sort through trees 
1198 GOSUB 2484: REM initialise candıtica 
ns 
1288 t=2: GUSUE 5448: REM plot tree 
1218 IF FNc(c,4)8 THEN GOSUB 58088: REM 
object manipulatiaon tree 
15088 NEXT c: GOTO 1838: REM do next char 
acter - when all finished check for key 
press/do again 


Gummiband- 


Betrieb 


Wir schließen das Digitalisierarm-Projekt mit der zweiten Hälfte des 
Tracer-Programms für den Acorn B ab. Es bietet einen bequemeren 
Weg zur Erzeugung von Punkten, Linien, Kreisen und ausgefüllten 
Dreiecken. Viel Spaß beim ersten Einsatz! 


er zweite Teil des Tracer-Programms er- 

laubt eine Art „Gummiband“-Betrieb. Im 
Gegensatz zum direkten Zeichnen (Freihand- 
Modus) gibt man beim Gummiband-Betrieb 
beispielsweise nur den Anfangs- und End- 
punkt einer Linie oder den Kreismittelpunkt 
und den Radius ein. Die fehlenden Linienzüge 
erzeugt das Programm dann automatisch. Im 
Gummiband-Betrieb erscheint oben auf dem 
Bildschirm ein Menü, aus dem über einfachen 
Tastendruck die gewünschte Funktion gewählt 
werden kann. Das Menü bietet auch die aus 
dem letzten Abschnitt bereits bekannten Mög- 
lichkeiten zum Speichern oder Laden des Bild- 
schirminhalts. Mit Hilfe dieser Programmer- 
weiterung können auch relativ komplexe 
Strukturen auf dem Bildschirm erzeugt und für 
die spätere Bearbeitung auf Cassette oder Dis- 
kette gespeichert werden. 


Die Prozeduren 


@® PROCpoint 

Wenn beim Aufruf von PROCdraw die Variable 
„togflag“ auf Eins liegt, Können wir den Cursor 
frei über den Bildschirm bewegen, ohne daß 
gezeichnet wird. Vor der Wahl von PROCpoint 
wird daher erst einmal togflag auf Eins gesetzt 
— also der „Stift“ vom Zeichenbrett gehoben. 
Der Ablauf ist in eine Schleife eingebunden, 
die auf Tastendrücke zum Abbrechen der 
Schleife oder einen Wechsel der Malfarbe rea- 
giert. Beim Druck auf den Taster am Digitali- 
sierarm wird ein Punkt auf die aktuelle Cursor- 
Position gesetzt. 


@ PROCline 

Diese Prozedur speichert zuerst die aktuellen 
Koordinaten des Cursors. Damit ist ein Fix- 
punkt des „Gummibandes“ festgelegt. Von 
diesem Punkt aus wird zur nächsten Cursorpo- 
sition eine Linie erzeugt. Das Zeichnen ge- 
schieht im Exclusive-OR-Modus mit GCOLS3. 
Eine Linie kann wieder gelöscht werden, in- 
dem man sie mit einer neuen Linie über- 
schreibt. Alle Funktionen sind in einer gemein- 
samen Programmschleife untergebracht. Das 
Positionieren einer Linie wurde so realisiert, 


Befehle im Tracer-Programm 


Hauptmenü 


Taste Funktion 
l Freihand-Modus 
2 Gummiband-Modus 


Freihand-Menü 

S Bildschirminhalt auf Diskette oder 
Cassette speichern 
Bildschirminhalt von Diskette oder 
Cassette laden 
Rückkehr zum Hauptmenü 
Bildschirm löschen 

Taster Stift hoch/Stift runter 


Gummiband-Modus 

. M‚,L,C Wie im Freihand-Modus 
Punkt in der vorgewählten Farbe 
zeichnen. M führt zurück zum 
„Gummiband“-Menü 
Linie von der ursprünglichen Cursor- 
position zur aktuellen Cursorposition 
ziehen. Druck auf M oder den Taster 
legt die Linie fest und führt ins Gum- 
miband-Menü zurück. 
Das durch drei Tasterbetätigungen 
definierte Dreieck mit Farbe 
ausmalen. 


Kreis zeichnen. Der Mittelpunkt ist die 


Cursorposition beim Aufruf, der Ra- 
dius hängt von der aktuellen Cursor- 
position ab. Durch Taste M oder Ta- 
ster am Digitalisierarm zurück zum 
Gummiband-Menü. 


Zeichenfarben 

1 Wählt logische Farbe 1 für die Zeich- 
nung (Vordergrund). Standardeinstel- 
lung: rot. 
Wählt logische Farbe 2 für die Zeich- 
nung Na Standardeinstel- 
lung: gelb 
Wählt logische Farbe 3 für die Zeich- 
nung (Vordergrund). Standardeinstel- 
lung: weiß. 


Mit dem Befehl VDU 19 können die logischen Far- 
ben aus den 16 verfügbaren Farben gewählt wer- 
den. VDU 19,1,6,0,0,0 macht Cyan zur logischen 
Farbe 1. Die Zeichenfarben können jederzeit verän- 
dert werden. 


1875 


Dieses Listing ist die 
Ausbaustufe des Digita- 
lisierarm-Programms 
für den Acorn B. Es 
wird an den ersten Pro- 
grammabschnitt ange- 
hängt. 


1876 


als ob sie ein auf der einen Seite befestigtes 
Gummiband wäre, das auf der anderen aber 
mit dem Cursor verbunden ist. Mit ihm kann 
man nun über den Bildschirm wandern, bis die 
Linie in der gewünschten Position liegt. Mit der 
M-Taste oder dem Taster am Digitalisierarm 
wird die Linie fixiert. 


© PROC#I 

Die Füllprozedur nutzt den Acorn B-Befehl 
PLOT 85,x,y, der ein Dreieck mit einer Farbe 
ausfüllt. Der Befehl konstruiert aus den Koordi- 
naten x,y und den beiden zuletzt aufgesuchten 
Punkten ein Dreieck und färbt es vollständig 
ein. Auch in diesem Programmteil können die 
Punkte durch Druck auf die Taste am Digitali- 
sierarm festgelegt werden. 


@® PROCcircle 

Mit der letzten Programmoption können Sie 
den Radius eines Kreises festlegen. Für genau 
diesen Zweck wird PROCline in dieser Proze- 
dur aufgerufen. Nach Festlegung des Radius 
springt die Programmsteuerung zu PROCcircle 
zurück, das zuerst die gezogene Linie und 
dann den Cursor selbst löscht, bevor der Kreis- 
bogen geschlagen wird. Der Mittelpunkt wird 
durch die Variablen xl und x2 definiert — den 
Cursorkoordinaten bei Aufruf der Routine. 
PROCbline stellt die Koordinaten eines Punktes 
auf dem Kreisumfang bereit (x2,y2). Aus die- 
sen Punkten wird der Radius berechnet. Den 
eigentlichen Kreisbogen erzeugt ein Standard- 
algorithmus. 


Mit diesen Routinen wird der Digitalisierarm 
zu einem nützlichen Helfer. 


SAVE FILENAMETSCR2 


SAVE FILEHAMETSCRI 


Tracer-Programm Teil 2 


2350 
2360 
2370 
2380 
press 
2370 
2400 
2410 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
R=Cir 
2510 
2520 
2540 
2550 
ROC 
2560 
2570 
2580 
:PROCe 


DEF FRüCelastic 

PROCelastic_inform 

REPEAT 

ans$=INKEY$(1):IF ans$<>"" THEN PROCelastic_ 


togflag=1:PROCdr aw 

UNTIL exitflag=1 

ENDPROC 

DEF PRüCelastic_inform 
PROCcalc_xy:oldx=x:oldy=y:PROCcursor(oldx,oldy)> 
PROCreinform 

GCOL 0,1:MOVE 0,920:DRAW 1280,920 

ENDPROC 

DEF PROCreinform 

PRINT TAB(1,1)3;SPC(79 

PRINT TAB(1,1);"S=Save L=Load M=Menu C=Clear 
cle" 

PRINT" D=Draw Line 
ENDPROC 

DEF PROCelastic_press 
IF ans$="C" THEN CLS:PROCelastic_inform:ENDP 


P=Point F=Fill" 


IF ans$="M" THEN exitflag=!i 
PROCcolour_change 

IF ans$="R" THEN PROCcircle_title:PROCcircle 
lastic_inform:ENDPROC 


L.2590,2800 


2590 
2500 
Celast 
2620 
_infor 
2630 
_infor 
2640 
2660 
2670 
2680 
2690 
2710 
2720 
2730 
2740 
2750 
2760 
T UNTI 
2770 
2780 
2790 
2800 
2810 


IF ans$="D" 
IF anss="Pp" 


THEN FROCline_title:FRÜCI ine 
THEN PROCpoint_title:PRülpsınt 


ic_inform:ENDPROC 

IF ans$="S" THEN PROCsave_screen:PROCelastic 
m:ENDPROC 

IF ans$="L" THEN PROCload_screen:PROCelastic 
m:ENDPROC 

ENDPROC 

DEF PROCpoint_title 


PRINT TAB(1,1) SPC(79) 

PRINT TAB(15,1);"Point Mode" 
ENDPROC 

DEF PROCpoint 

REPEAT 

togf 1 ag=1 :PROCdr aw 


ans$=INKEY$(1) 

PROCcolour_change 

IF CADVALCO)AND 3)<>0 THEN PLOT 69,x,y:REPEA 
L CADVAL(O)AND 3)=0 

UNTIL ans$="M" 

PROCreinform 

ENDPROC 

DEF PROCIl ine_title 

PRINT TAB(1,1) SPC(79) 


2820 PRINT TAB(15,1);"Line Mode" 

2830 ENDPROC 

2850 DEF PROCI ine 

2860 xi=x:y1=y:REPEAT 

2880 PROCcalc_xy:PROCcursor (oldx,oldy)> 

2890 x2=x:y2=y:6COL 3,colour::MOVE x1,y1:DRAW x2,y2 

2900 ans$=INKEY$(1) 

2910 IF (ADVAL(O)AND 3) THEN ans$="M" 

2920 PROCcursor (x,y) :oldx=x:0ldy=y 

2930 IF ans$<>"M"THEN GCOL 3,colour :MOVEx1,y1:DRA 
Wx2,y2 

2940 PROCcolour_change 

2950 UNTIL ans$="M" 

2960 PROCreinform 

2970 ENDPROC 

2990 DEF PROCfill_title 

3000 PRINT TAB(1,1) SPC(79) 

3010 PRINT TAB(15,19;"Fill Mode" 

3020 ENDPROC 

3040 DEF PROC#i 1] 

3050 FOR I=1 TO 3 

3060 REPEAT i 

3070 togflag=1:PROCdr aw: ans$=INKEY$(1) 
3075 IF ans$<>""THEN PROCcolour_change 

3080 UNTIL (ADVAL(O)AND 3)<>0 

3090 PLOT 69 ,x,y:x(II=x:y(l)=y 

3110 REPEAT UNTIL (ADVAL(CO)AND3)I=0:REM AWAIT BUTT 
ON OFF 

3120 NEXT I 

3135 PROCcursor(x,y):REM cursor off 

3140 FOR I=1 TO 2:PLOT 69,x{I),y{I):NEXT I 

3150 PLOT 85,x,y 

3160 ENDPROC 

3180 DEF PROCcircle_title 

3190 PRINT TAB(1,1) SPC(?9) 


3200 
3210 
3230 
3240 
3250 
UT LI 
3260 
3270 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3435 
3440 


PRINT TAB(15,1);"CIRCLE MODE" 

ENDPROC 

DEF PROCcircle 

PROCI ine 

G6COL 3,colour :MOVE x1,y1:DRAW x2,y2:REM RUBO 


NE 

G6COL 0,colour:REM BACK TO NORMAL PLOT MODE 
PROCcursor (x2,y2) 
radius=SQR((x2-x1)"2+(y2-y1)°2) 
MOVE xi+radius,yi 

FOR angle=0 TO 2*PI STEP 0.1 
rx=x1l+radius#C0S(Cangle) 
ry=yl+tradius#SIN(Cangle) 

DRAW rx,ry 

NEXT angle 

DRAW x1+radius,yli 

ENDPROC 


Fachwörter von A bis Z 


Minicomputer = Minicomputer 
Ursprünglich verstand man unter Mi- 
nicomputer Rechner von der Größe 
eines Aktenschranks, im Unterschied 
zu den Mainframes, die weit mehr 
Platz beanspruchten. Minicomputer 
sind langsamer und weniger lei- 
stungsfähig als ihre großen Brüder, 
aber sehr viel preiswerter und daher 
auch schon in kleineren Betrieben 
anzutreffen, für deren Erfordemisse 
Mainframes weit überdimensioniert 
und zu kostspielig wären. 

Einige Fachleute haben angesichts 
immer leistungsfähigerer Micros das 
Aussterben der Minicomputer pro- 
phezeit. Es scheint aber so, als ob 
sie sich trotz des drastischen Lei- 
stungszuwachses bei den Micropro- 
zessoren noch etliche Jahre halten 
würden. 


Modem = Modem 

Ein Modem (als Abkürzung für Mo- 
dulator/Demodulator) ist ein Peri- 
pheriegerät für die Rechnerkommu- 
nikation über Fernsprechleitungen; 
es besorgt die Umwandlung der Di- 


Die heute angebotenen Modems lassen 
sich im wesentlichen zwei Gruppen zuord- 
nen: Bei den Akustikkopplern besteht nur 
eine akustische Verbindung mit dem Fern- 
sprechnetz durch den auf das Modem ge- 
setzten Hörer, während bei den direkt ge- 
koppelten Modems über einen Zwischen- 
stecker an der Telefonsteckdose ein unmit- 
telbarer elektrischer Kontakt mit dem Post- 
netz hergestellt wird. 


Hier werden einzelne Fach- 
ausdrücke eingehend behandelt. 
Da bei der Kommunikation mit 
dem Computer meist die 
englische Sprache verwendet 
wird, werden hier zunächst die 
englischen Begriffe genannt, 
dann die deutsche Übersetzung. 
In den Gesamtindex werden 
sowohl deutsche als auch 
englische Stichwörter aufge- 
nommen, damit Sie es leichter 
haben, das von Ihnen 
Gesuchte zu finden. 


gitalsignale eines Rechners in über- 
tragbare Analogsignale und umge- 
kehrt. Diese Umsetzung wird in der 
Fachsprache als Modulation bzw. 
Demodulation bezeichnet. 

Bei der Demodulation wird aus 
dem analogen Telefonsignal wieder 
ein für den Computer verständliches 
Bitmuster generiert. Außer für die 
Modulation und Demodulation sind 
Modems auch dafür eingerichtet, die 
Baudrate bei der Übertragung anzu- 
passen. Da es bisher keinen ver- 
bindlichen Baudratenstandard gibt, 
sind die Übermittlungsgeschwindig- 
keiten oft unterschiedlich, und ein 
Datenaustausch zwischen Rechnern 
ist ohne Anpassungsvorkehrungen 
unmöglich. 

Mit zunehmender Verbreitung von 
Microcomputern und Datennetzen 
werden immer mehr Informationssy- 
steme für Micros mit Modem zu- 
gänglich. 


Modular Programming = 
Modulare Programmierung 
Modulare und strukturierte Program- 
mierung sind praktisch gleichbedeu- 
tend. Gemeint ist damit die Untertei- 
lung eines Programms in Abschnitte, 
von denen jeder nur für eine Auf- 
gabe zuständig ist, im Gegensatz 
zum „monolithischen“ Programmier- 
stil. Die Modularität erlaubt es, die 
einzelnen Bausteine unabhängig 
voneinander zu testen, bis sie ein- 
wandfrei laufen. Dann werden sie 
durch Parameteraustausch unterein- 
ander verknüpft, und das Programm 
arbeitet als Ganzes. 


Modulation = Modulation 
Modulation wird in der Nachrichten- 
technik das Aufprägen von Informa- 
tion auf ein Trägersignal genannt; 
beim Datenverkehr erfolgt das im 
allgemeinen durch Umsetzen eines 
Digitalsignals in ein Analogsignal. 
Der umgekehrte Vorgang heißt De- 
modulation. Es gibt verschiedene 
Modulationsverfahren: Bei der Am- 
plitudenmodulation (AM) wird die 
Amplitude, das heißt, die Höhe einer 
als Träger dienenden Wechselspan- 
nung verändert, während bei der 
Frequenzmodulation (FM) die Fre- 
quenz des Wechselspannungsträ- 
gers variiert wird. Damit verwandt ist 
die Phasenmodulation (PM), bei der 
die Information in einer zeitlichen 
Verschiebung des Trägers enthalten 
ist. Bei Hochgeschwindigkeits-Mo- 
dems wird zuweilen ein kombinier- 
tes AM/PM-Verfahren benutzt. Die 
Pulscodemodulation (PCM) dient 
dagegen zur digitalen Darstellung 
eines Analogsignals, dessen jewei- 
lige Höhe in kurzen Zeitabständen 
abgetastet und durch ein Impulsmu- 
ster codiert wird. 


Modulus = Modul 

Das Wort ‚Modul’ hat mehrere Be- 
deutungen. Es wird unter anderem 
in der Mathematik zur Bezeichnung 
der arithmetischen Operation für das 
Bestimmen des Teilungsrests — etwa 
bei der Division A:B — verwendet. 
Dafür schreibt man „A mod B“ (ge- 
sprochen „A modulo B“); in PASCAL 
findet es sich als MOD-Anweisung 
wieder und wird meist in Verbin- 
dung mit dem DIV-Befehl für die 
ganzzahlige Division (ohne Rest) be- 
nutzt. Zur Illustration: 17 DIV 5 ergibt 
3, und 17 MOD 5 liefert 2, da bei der 
Rechnung 17:5=3 der Rest 2 heraus- 
kommt. 
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In unserem neuen Programmier-Service bringen wir Pro- 
gramme, mit denen das tägliche Leben erleichtert wird. Wer 
fragt sich nicht immer wieder, wo nur das ganze Haushalts- 
geld bleibt. Unser „Kostenkalkulator“ wurde für Atari-, Com- 
modore-, Sinclair- und Schneider-Rechner geschrieben. Er 
erleichtert die Übersicht über Einnahmen und Ausgaben, 


und man kann Kosten gering halten. 
Pe. ER ei 
MIDI-Rock ammmmmttH Anm 
Entwurf und Konstruktion eines MIDI-Inter- 
face für den Acorn B und C64. 1 
Sclhsehay. | 
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einiger E/A-Routinen werden nun noch zit UM 
kleinere Routinen integriert. RT? E GETELLLUE 
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Eine Platinenrundreise erklärt die IE (f KERN „\ Almen Kur 
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